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t for registers 

t for TSX-Plus addresses 

t for miscellaneous fields 

t for line status tables 

t for device handler status 

t for job context information 



- Dump entry point 
• Display date and time information 

- Divide 16-bit into 32-bit 

- Display error status information 

- Display contents of registers 

- Display TSX. SAV module addresses 

- TSX-Plus overlay region 

- Display contents of stack 

- Display misc system values 

- Display info about current job 

- Display line definition tables 

- Display device definition tables 

- Display fork block information 

- Display job contextinf ormat ion 

- Output a list of information 

- Display stack contents 

- Output tables of information 

- Output an asciz string 

- Convert and print a value 

- Convert and print a RAD50 value 

- Blank pad output stream 

- Output an ascii character 
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TSX-Plus crash dump 



System overlay id 



This module implements the TSX-Plus crash dump f«^ility. 

Copyright <c) 1985. 
S&H Computer Systems* Inc. 
Nashville* Tennessee USA 
All rights reserved. 

The crash dump facility provides diagnostic information uihen 
a fatal system error occurs. It is entered with interrupts 
disabled and prior initialization of several stored values. 
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GLOBAL Definitions. 
. GLOBL DODUMP 



GLOBAL References. 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



SS, SSEND, INTSTK, INTSND, JSTK, JSTKND 

VDMTCR, PSW 

DMPTXT, DMPOVL, DMPHND, DIEARG, DIEPC, DIESP 

TSGEN, TSTIO, TSEXEC, TSEMT, TSINIT 

TRPAR5> KPAR6, VPAR5, VPAR6 

CORUSR, NUMDEV, MAXDEV 

NPL, NSL, NDL, NIOL, NLINES 



SYSDAT 

SYTIMH, SYTIML 

TKISEC 

OVRADD 

*INCOR 

FQ*LNK 

LCXPAR 

RTllEX 



TNHL 

; System date (TSGEN) 

i System time <TSGEN) 

i Number of ticks per second 

i Address of overlay tables 

; LSUI in memory flag 

iLink word to next fork block 

i PAR relocation base of job context 

>RT-11 function bias 



TSDUMP 
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MACRO Definitions. 



DISABLE macro used to disable all interrupts. 

i DISABLE INTERRUPTS 



. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 



STKDEF macro used to define a stack where: 
BASE = base of stack 
TOP = top of stack 
LENGTH = length < in words) of stack 





. MACRO 


STKDEF 


base: 








. BLKW 


length 


top: 








. ENDM 


STKDEF 



topi base, length 

i Base address of stack 
{Allocate stack space 
j Top address of stack 



PRINT macro used to define a print string where 
stradr = address of asciz string to print 



. MACRO 


PRINT ?5tradr 


. NARG 


ARG 


. IF 


NE, ARG 


MOV 


stradr, Rl 


. ENDC 


; NE, ARG 


CALL 


OUTSTR 


. ENDM 


PRINT 



i Determine number of arguments 
iOnly if argument exists 
I Point to string address 

{Display asciz string 



TTYOUT macro used to output a single character where 
char = character to output 



. MACRO 


TTYOUT 


. NARG 


ARG 


. IF 


NE, ARG 


MOVE 


char, rO 


.ENDC 


;NE ARG 


CALL 


OUTCHR 


. ENDM 


TTYOUT 



?char 



{Determine number of arguments 
iOnly if argument exists 
; Get output character 

{Display ascii character 
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TBEO macro used to define a table entry print field where: 



LABEL 

NAME 

ROWNAM 

ATTR 

SINDX 

EINDX 

. MACRO 
. NARG 
. PSECT 

. PSECT 
. PSECT 



PSECT 



PSECT 



PSECT 



address label of table 

table title 

row name label 

index number attribute 

starting index 

ending index 



PSECT 
ENDM 



TBEG 
ARGS 
DUMP 
label 
TSDUMP 
STRING 
STRADD 
. ASCII 
. BYTE 
DUMP 
. WORD 
. IF 



. ENDC 

TENABL 

STRING 

STRADD 

. ASCII 

. BYTE 

DUMP 

. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
TSDUMP 
TBEG 



label' name^ 



/name/ 
O 

STRADD 

EQ, ARGS-2 

TENABL = 

. MEXIT 

i EQ, ARGS-2 

=r 1 



/rownam/ 
200 



STRADD 

attr 

STRADD 

sindx 

eindx 



rownami attr# sindx, eindx 

i Number of arguments to macro call 

J Define DUMP program section 

i Define starting address 

i Restore TSDUMP program section 

i Define TEXT program section 

i Point to the starting address 

i Store the ascii label 

{Terminate as asciz string 

i Define DUMP program section 

J Store the string address 

iOnly two arguments passed 

J Flag list definition in progress 

i Terminate macro expansion 

; Flag table definition in progress 

; Define STRING program section 

i Point to the starting address 

; Store the ascii label 

; Terminate as asciz string 

; Define DUMP program section 

■> Store the string address 

i Store table attributes 

; Store the string address 

i Store starting table index 

j Store ending table index 

; Restore TSDUMP program section 



TSDUMP 
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PVAL macro used to define a single print field where: 



NAME 

LABEL 

ATTR 

SINX 

EINX 



= ascii string title 

= address label containing print value 

= field attributes 

== starting table index 

= ending table index 

Format attributes: 

*RJUST = (bit 14) right justify (default is left) 

«ZRPAD = (bit 13) zero pad (default is blank) 

Storage attributes: 

*BYTE = (bit 0) storage requirement (default is word) 

*DEC = (bit 2) decimal representation (default is octal) 

*RAD50 = (bit 3) radSO representation 



Definition of field attribute bit definitions. 



040000 
020000 

000001 
000002 
000004 



*RJUST 


= 40000 




*ZRPAD 


= 20000 




Storage attributes. 




*BYTE 


= 1 




*DEC 


= 2 




*RAD50 


= 4 




. MACRO 


PVAL name* labeli at 


. PSECT 


STRING 






STRADD 


=s 




. ASCII 


/name/ 




. BYTE 


200 


. PSECT 


DUMP 






. WORD 


STRADD 




. WORD 


attr 




. GLOBL 


label 




. WORD 


label 




. IF 


NE. tenabl 




. WORD 


sindx 




. WORD 


eindx 




. ENDC 


; NE, tenabl 


. PSECT 


TSDUMP 




. ENDM 


PVAL 





i Right justify 
; Zero pad 

J Byte storage cell 

} Decimal numeric representation 

iRadSO representation 

sindxi eindx 

i Define STRING program section 

i Point to the starting address 

; Store the ascii label 

; Terminate as asciz string 

i Define DUMP program section 

; Store the string address 

; Store field attributes 

i Declare variable as global 

j Store location of value field 

j Has table definition been enabled? 

i Store starting table index 

i Store ending table index 

{Restore TSDUMP program section 
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PVAL and PRVAL avB identical with the exception that PVAL 
declares the entity as GLOBL and PRVAL does not. 



MACRO 
PSECT 



PSECT 



PSECT 
ENDM 



PRVAL name, 

STRING 

STRADD = 

. ASCII 

. BYTE 

DUMP 

. WORD 

. WORD 

. WORD 

. IF 

. WORD 

. WORD 

. ENDC 

TSDUMP 

PRVAL 



label* attr. 



/name/ 
200 

STRADD 

attr 

label 

NE, tenabl 

sindx 

eindx 

; NE/ tenabl 



sindXf eindx 

Define STRING program section 

Point to the starting address 

Store the ascii label 

Terminate as asciz string 

Define DUMP program section 

Store the string address 

Store field attributes 

Store location of value field 

Has table definition been enabled? 

Store starting table index 

Store ending table index 

/Restore TSDUMP program section 



TSDUMP 
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^ ; TEND macro used to define the end of a table or list 
4 

^ . MACRO TEND 

t . PSECT DUMP i Define DUMP program section 

.WORD ;End of table or list 

o PSECT TSDUMP i Restore TSDUMP program section 

^ . ENDM TEND 






TSDUMP — TSX-Plus crash 
Output list for registers 

1 
2 
3 
4 

5 000002 

6 000002 

7 000002 

8 000002 

9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 

15 000002 

16 000002 
17 



dump MACRO V05. 04 Friday 22-Jan-8S 16:44 Page S 

. SBTTL Output list for registers 
i Generate list for output of register contents. 



TBEO PRTREG, <Register 

PVAL <R0>, SVRO 

PVAL <R1>, SVRl 

PVAL <:R2>, SVR2 

PVAL <R3>, SVR3 

PVAL <R4>, SVR4 

PVAL <R5>, SVR5 

PVAL <SP>, DIESP 

PVAL <PC>, DIEPC 

PVAL <KPAR 5>, SVPAR5 

PVAL <KPAR 6>, SVPAR6 

TEND 



Contents> /Beginning 
Register 
Register 1 
Register 2 
Register 3 
Register 4 
Register 5 
Stack pointer 
Program counter 
Kernal PAR 5 
Kernel PAR 6 

■> End of print 



of print list 



list 
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Output list for TSX-Plus addresses 
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SBTTL Output list for TSX-Plus addresses 



000002 
000102 
000002 
S 000002 
9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 



Generate list for output of TSX-Plus address values. 

TBEG ADDR, <TSX-Plus module addresse5> 

PVAL <TSGEN >, ADGEN ; Address of TSGEN 

PVAL <TSTIO >, ADTIO i Address of TSTIO 

PVAL <TSEXEC>, ADEXEC ; Address of TSEXEC 

PVAL <TSEMT >, ADEMT ; Address of TSEMT 

PVAL <TSINIT>, ADINIT i Address of TSINIT 

PVAL <TSTIOX>, ADTIOX j Address of TSTIOX 

PVAL <TSLOCK>, ADLOCK ; Address of TSLOCK 

PVAL <TSCASH>, ADCASH ; Address of TSCASH 

TEND 
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1 
2 
3 
4 

5 000002 

6 000166 

7 000002 

8 000002 

9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 

15 000002 

16 000002 

17 000002 

18 000002 

19 000002 

20 000002 

21 000002 

22 000002 

23 000002 

24 000002 

25 000002 

26 000002 

27 000002 

28 000002 

29 000002 

30 000002 

31 000002 

32 000002 

33 000002 

34 000002 

35 000002 

36 000002 

37 000002 

38 000002 

39 000002 

40 000002 

41 000002 

42 000002 

43 000002 

44 000002 

45 000002 

46 000002 

47 000002 

48 000002 

49 000002 

50 000002 

51 000002 

52 000002 

53 000002 



SBTTL Output list for miscellaneous fields 



Generate list for output of miscellaneous fields. 



TBEG 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



VMISC, <Miscellaneous va 
<CLKPC>, CLKPC 
<CLKPS>, CLKPS 
<CSHBAS>, CSHBAS 



CURFRK 

CXBJOB, <*BYTE> 
CXBOWN. <*BYTE> 
DOSCHD> <*BYTE> 
EXCJOB, <*BYTE> 



<curfrk: 
<:cxbjob; 
<cxbown: 

<DOSCHD>, 

<:excjob; 
<freioq>>freioq 
<frkcqe>, frkcqe 
<frefrk>, frefrk 
<frkpri>, frkpri, <:*byte> 
<inbsy>» inbsy, <*byte> 
<intlvl>, intlvl, <*byte> 
<intpri>, intpri 

">■ lOABFL 
j>, LOKBAS 
<LOKSWP>, LOKSWP 
<MAPUSR>, MAPUSR, <*BYTE> 
<MEM256>, MEM256, <*BYTE> 
<MEMSWP>, MEMSWP 
<MIOFLG>, MIOFLG, <«BYTE> 
<MS0BAS>, MSGBAS 
<NMFREQ>, NMFREQ 
<NUMON>, NUMON, <*BYTE> 
<OUTBSY>, OUTBSY, <*BYTE> 
<PVON>, PVON, <*BYTE> 
<SPDJQB>, SPDJOB, <*BYTE> 
<SR3FLG>, SR3FLG> <*BYTE> 
<STKLVL>, STKLVL, <*BYTE> 
'•CTIOBAS>, T I OB AS 
<TOTON>, TOTON, <*BYTE> 
<UBUSMP>, UBUSMP, <*BYTE> 
<UIOCNT>, UIOCNT 
<USP>, USP 
<USRBAS>» USRBAS 
<USRJOB>* USRJOB, <*BYTE> 
<VBUSTP>, VBUSTP, <*BYTE> 
<VCSHNB>, VCSHNB 
<VMXSF>, VMXSF 
<VriXSFC>, VMXSFC 
<:VNGR>, VNGR 
<VNUMDC>, VNUMDC 
<VPLAS>, VPLAS 
<VSWPFL>, VSWPFL, <*BYTE> 
<VSWPSL>, VSWPSL 
<VUXIFL>> VUXIFL* <*BYTE> 



lues> ^Beginning of print list 
Clock interrupted PC <for PM) 
Clock interrupted PS (for PM) 
Physical add of TSCASH 
Address of current FORK call 
Context block job contents 
Context block job owner 
Do scheduling flag 
Exclusive system job owner 
Free I/O queue head 
Fork queue head 
Free fork queue head 
Fork priority 
Inswap flag 
Interrupt level 
Interrupt priority 

I/O abort flag <0=rundown; l=abort> 
PAR base of TSLOCK 
Job requiring memory lock 
Job currently mapped 
Extended memory flag 
Job requiring memory expansion 
I/O mapping flag 
PAR base of TSMSO 

Number of free user's queue elements 
Num of hardware lines on 
Outswap flag 

Num of primary and virtual lines on 
SPD job owner 

Extended memory management reg. flag 
Stack level 

Physical add of TSTIOX 
Num of total lines on 
Unibus map flag 
User I/O count 
User stack pointer 
PAR base of TSUSR 
USR job owner 

Bus type (0 = UNIBUS; 1 = QBUS) 
Num of generalized cache blocks 
Max num of shared files 
Max num of shared file channels 
Num of global PLAS regions 
Num of shared data cache blocks 
Num of PLAS blocks allocated 
Swap flag (0 = swap; 1 = noswap) 
Num of swap file jobs allocated 
Unexpected interrupt <1 = abort) 
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1 
2 
3 
4 

5 000002 

6 000002 

7 000002 

8 000002 

9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 

15 000002 

16 000002 

17 000002 
IS 000002 

19 000002 

20 000002 

21 000002 

22 000002 

23 000002 

24 000002 

25 000002 

26 000002 

27 000002 

28 000002 

29 000002 

30 000002 

31 000002 

32 000002 

33 000002 

34 000002 

35 000002 

36 000002 

37 000002 

38 000002 

39 000002 

40 000002 

41 000002 

42 000002 



. SBTTL Output list for line status tables 
Generate table for output of line status. 



TBEO 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



JLIN, <Job Status Tables>, <Job>, 
<LSW>, LSW, <*RJUSTf«ZRPAD> 
<LSW2>, LSW2, <*R JUST ! *ZRPAD> 
<LSW3>, LSW3, <*R JUST ) *ZRPAD> 
<LSW4>i LSW4, <*R JUST ! *ZRPAD> 
<LSW5>, LSW5, <*R JUST .' «ZRPAD> 
<LSW6>, LSW6, <*R JUST ! *ZRPAD> 
<LSW7>, LSW7, <*R JUST ! *ZRPAD> 
<LSWS>, LSWS, <*R JUST ! *ZRPAD> 
<LSW9>, LSW9, <*RJUST ! *ZRPAD> 
<CLSW10>, LSW10> <*R JUST ! *ZRPAD> 
'•CLSWl 1>, LSWl 1 , <*R JUST ! *ZRPAD> 
<LSTATE>, LSTATE, <*R JUST ! *ZRPAD> 
<LBASE>, LEASE, <*R JUST ! *ZRPAD> 
<LPARBS>, LPARBS, <*RJUST ! *ZRPAD> 
<LNBLKS>, LNBLKS, <*R JUST ! *ZRPAD> 
<LNSBLK>, LNSBLK, <*R JUST ! *ZRPAD> 
<LIOCNT>- LIOCNT, <*R JUST ! *ZRPAD> 
<LINCNT>, LINCNT, <*RJUST !*ZRPAD> 
<LACTIV>, LACTIV, <*R JUST ! *ZRPAD> 



<LPRGl>i 
<LPRG2>. 



LPROl 



<*RAD50> 



<*BYTE!*DEC>, 1, 
Job status word 
Job status word 2 
Job status word 3 
Job status word 4 
Job status word 5 
Job status word 6 
Job status word 7 
Job status word 8 
Job status word 9 
Job status word 10 
Job status word 11 
Job state 
Base 512-block 



NLINES 



num of context 



Base PAR of program 
Num of mem pages for 
Num of mem pages for 
Active I/O counter 
Input chars pending 
Activ chars pending 
Program name 



job 
PLAS 



<lcdtyp: 



; Program name 
LCDTYP, <*R JUST ! *ZRPAD>, 1 , TNHL ; Hardware 1 ine 
LNPRIM, <*R JUST f *ZRPAD>, 1, NPL+NDL; Primary line 
<LPARNT>>LPARNT><*RJUST!*ZRPAD> j Parent number index 
<LBSPRI>, LBSPRI, <*RJUST.'*ZRPAD> i Job base priority 
<LCLUNT>, LCLUNT, <*RJUSTi*ZRPAD>, 1, NPL+NSL+NDL+NIOL; CL unit 



status 
index 



LMEMIN, <*RJUST!*ZRPAD> 
<LIOHLD>. LIOHLD, <*RJUSTf *ZRPAD> 
<LAFSIZ>, LAFSIZ, <*RJUST ! *ZRPAD> 
<LFWLIM>, LFWLIM, <C*RJUST! *ZRPAD> 
<LCMPL>> LCMPL, <*R JUST .' *ZRPAD> 
<CLSWPBK>, LSWPBK, <*RJUST ! *ZRPAD> 
<LJSW>, LJSW, <«R JUST ! «ZRPAD> 
<LEMTPC>> LEMTPC, <«R JUST ! *ZRPAD> 
<LSPND>, LSPND, <*R JUST .' *ZRPAD> 



Num mem pages require 
I/O hold for swap 
Field width activate 
Field limit activate 
Pending completion 
Swap file block num 
Job status word 
Last EMT PC address 
Job . SPND counter 



<LXCL>,LXCL,<*R JUST! *ZRPAD>, l,NPLi Cross connect CL unit index 
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. SBTTL Output list for device handler status 



Generate table for output of device handler status. 



000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 
000002 



TBEO 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



DHAN, <Device Handier Tab les>, <0f f 5et>, <*BYTE!*DEC>, 0, MAXDEV-1 



l>, PNAME, <*RAD50> 
<HANENT>, HANENT, <*RJUST> 
<HANPAR>, HANPAR. <C*RJUST> 
<HANSIZ>. HANSIZ, <*RJUST> 
<HANIOC>i HANIOC, <«RJUST> 
<DVFLAe>* DVFLAO, <*R JUST ! *ZRPAD> 
<DVSTAT>, DVSTAT, <*RJUST ! *ZRPAD> 
<DEVSIZ>, DEVSIZ, <*RJUST ! *ZRPAD> 



Program 

Handler 

Handler 

Handler 

Handler 

Device 

Device status flags 

Device size (256 word 



name 

entry point 
PAR 
size 

I/O count 
handler flags 



blks) 



€ 
€ 
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1 
2 
3 

4 000002 

5 001550 

6 000002 

7 000002 

8 000002 

9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 

15 000002 



Generate list for output of current FORK in progress. 



TBEO 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



FRKREQ, 

<Addres 

CSaved 

<Saved 

<Saved 

<Saved 

<Saved 



^Current 
s>, FQ*RTN 



FORK req.uest> 



R5>, 
R4>, 
R3>, 



Rl>; 



FQ*R5 
FQ*R4 
FQ*R3 
FQ*R2 
FQ*R1 



<User's FORK block add>, FQ*UFB 

<Saved KPAR5>, FQ*PA5 

<Saved 

<:fork p 



KPAR6>, FQ*PA6 

riority>. FQ*PRIi <*BYTE> 



Address of FORK routine 

Saved value of R5 

Saved value of R4 

Saved value of R3 

Saved value of R2 

Saved value of Rl 

User specified FORK block add 

Saved value of KPAR5 

Saved value of KPAR6 

FORK priority 
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1 




2 




3 




4 




5 




6 


000002 


7 


001650 


8 


000002 


9 


000002 


10 


000002 


11 


000002 


12 


000002 


13 


000002 


14 


000002 


15 


000002 


16 


000002 


17 


000002 


IS 


000002 


19 


000002 



. SBTTL Output list for job context information 
Generate list for output of job context information. 



TBEG 


VJCB, 


<Job context informa 


PVAL 


<URO>, 


URO 


PVAL 


<curemt:>, curemt 


PVAL 


<:EMTBLK+0 >, EMTBLK, <*BYTE> 


PRVAL 


< 


+ 1 y. EMTFUN, <*BYTE> 


PRVAL 


< 


+2 >, EHTBLK+2 


PRVAL 


< 


+4 >, EMTBLK+4 


PRVAL 


< 


+6 >, EiiTBLK+6 


PRVAL 


< 


+ 10>, EMTBLK+10 


PRVAL 


< 


+12>. EMTBLK+12 


PRVAL 


< 


+14>, EMTBLK+14 


PRVAL 


< 


+16>, EMTBLK+16 


PVAL 


<CHNADR>, CHNADR 


TEND 







Beginning of print list 
User rO return information 
Current emt 
EMT channel number 
EMT function code 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
Channel address 
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2 






3 






4 






5 






6 






7 




000015 


8 




000012 


9 




000021 


10 




000023 


11 




000055 


12 




000014 


13 






14 






15 






16 






17 


000002 


000000 


18 


000004 


000000 


19 


000006 


000000 


20 


000010 


000000 


21 


000012 


000000 


22 


000014 


000000 


23 




000016' 


24 


000016 


000000 


25 


000020 


000000 


26 






27 






28 






29 


000022 


000000 


30 


000024 


000000 


31 


000026 


000000 


32 


000030 


000000 


33 


000032 


000000 


34 


000034 


000000 


35 


000036 


000000 


36 


000040 


000000 


37 






38 






39 






40 






41 






42 


000042 


000000 


43 


000044 


000000 


44 


000046 


000000 


45 


000050 


000000 


46 


000052 


000000 


47 


000054 


000000 


48 


000056 


000000 


49 






50 






51 






52 


000060 




53 


000112 




54 


000144 




55 


000176 




56 


000230 




57 


000262 









. SBTTL 


Data areas 


; Int 


ernal st( 


srage. 


> 

; Assignments. 




CR 


=r 


15 


LF 


= 


12 


CTRLQ 


s: 


21 


CTRLS 


=: 


23 


DASH 


ss 


/ __ 


NCOL 


ss 


12. 


i Internal stack and regi 


i 

SVRO 




. WORD 





SVRl 




. WORD 





SVR2 




. WORD 





SVR3 




. WORD 





SVR4 




. WORD 





SVR5 




. WORD 





SVREO 


= 




SVPAR5 


. WORD 





SVPAR6 


. WORD 





1 

i Roo 


t module 


addresses. 


* 

ADOEN: 


. WORD 





ADTIO: 


. WORD 





ADEXEC 


. WORD 





ADEMT: 


. WORD 





ADINIT 


. WORD 





ADTIOX 


. WORD 





ADLOCK 


. WORD 





ADCASH 


. WORD 






Miscellaneous storage. 
Word bounded storage. 



TBUF 


. WORD 





TCSR 


. WORD 





RBUF 


. WORD 





RCSR 


. WORD 





COL; 


. WORD 





SAVKf 


='6: . WORD 





EMTFt 


JN: . WORD 





i F< 


3rmat tabl 


es for c 


TSCOl 


-: . BLKW 


NCOL+1 


TECOl 


-: . BLKW 


NCOL+1 


TSIN) 


<: . BLKW 


NCOL+1 


TEIN3 


<: . BLKW 


NCOL+1 


TATT. 


. BLKW 


NCOL+1 


TADR. 


. BLKW 


NCOL+1 



; Carriage return 

j Line feed 

i Control-Q 

} Control-S 

i Dash 

/Number of columns for table output 



; Saved registers <r5 to rO) 
; Past saved registers 
i Saved kernel PAR 5 
; Saved kernel PAR 6 



Address 
Address 
Address 
Address 
Address 
Address 
Address 
Address 



of TSGEN 
of TSTIO 
of TSEXEC 
of TSEMT 
of TSINIT 
of TSTIOX 
of TSLOCK 
of TSCASH 



J Transmit buffer 

; Transmit CSR 

/Receiver buffer 

/Receiver CSR 

/Current column position 

/Saved KPAR6 for remapping 

/ EMT function code 



/Starting column on table output 
/Ending column on table output 
/Starting index for column 
/Ending index for column 
/Attributes of table 
/Base address of table 
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I 



58 
















59 








; Data. 




60 














61 000314 


037266 


023112 


050572 


MONTH: 


. RAD50 


/JANFEBMARAPRMAYJUNJULAUGSEPOCTN 


000322 


004322 


050601 


040726 








000330 


040724 


004617 


073630 








000336 
62 
63 


057114 


054756 


014713 














; Byt( 


a bounded 


storage. 


64 














65 000344 

66 

67 


021 






XFLG: 


. BYTE 


CTRLQ ; XON/XOFF flag 








i Output strin 


gs. 


68 














69 










. NLIST 


BEX 


70 000345 


101 


162 


147 


TXARG 




. ASCII 


/Arg. value = /<200> 


71 000363 


123 


145 


147 


TXSEG 




. ASC 1 1 


/Seg. value = /<200> 


72 000401 


117 


166 


145 


TXOID 




. ASCII 


/Overlay: /<200> 


73 000413 


104 


145 


166 


TXDEV 




. ASCII 


/Device name: /<200> 


74 000431 


040 


075 


040 


EQSTR 




. ASCII 


/ = /<200> 


75 000435 


040 


040 


040 


SPSTR 




. ASCII 


/ /<200> 


76 000443 


014 


200 




FF: 


. BYTE 


14i 200 i Form feed 


77 000445 


015 


012 


200 


CRLF: 


. BYTE 


CR* LF» 200 j Carriage return 


78 000450 


124 


123 


130 


OVLREG 


. ASCIZ 


/TSX-Plus overlay regions/ 


79 000501 


123 


171 


163 


STKSS: 


. ASCIZ 


/System /<200> 


SO 000512 


111 


156 


164 


STKINT 


. ASCIZ 


/Interrupt /<200> 


81 000526 


105 


115 


124 


STKEMT 


. ASCIZ 


/EMT /<200> 


82 000534 


123 


164 


141 


STKCNT 


. ASCIZ 


/Stack Contents/ 


S3 000553 


040 


057 


040 


STKDLM 


. ASCII 


\ / \<200> 


84 000557 


111 


156 


166 


INVSTK 


. ASCIZ 


/Invalid stack pointer/ 


85 000605 


111 


156 


164 


INTLEV 


. ASCIZ 


/Interrupt Level/ 


86 000625 


106 


157 


162 


FRKLEV 


. ASCIZ 


/Fork Level/ 


87 000640 


123 


171 


163 


STKOVR 


. ASCIZ 


/System stack overflow/ 


88 000666 


112 


157 


142 


CUR JOB 


. ASCII 


/Job executing at time of dump/< 


89 










.LIST 


BEX 


90 












. EVEN 





/ line feed 



TSDUMP 
DODUMP 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— TSX-Plus crash dump 

— Dump entry point 



000724 



000732 
000736 
000742 
000744 
000746 
000752 
000756 
000764 
000770 
000774 
000776 
001000 
001004 
001010 



001016 
001024 
001032 
001036 
001042 
001044 
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. SBTTL DODUMP — Dump entry point 



is entered from TSEXEC with the 



TSDUMP entry point. TSDUMP 
•following known values: 

DMPTXT = Asciz text of die message 

DMPOVL = Rad50 overlay name (or zero) 

DMPHND = RadSO handler name (or zero) 

DIEMSG = Address of die message 

DIEARO == Argument of die message 

DIESP = Original stack pointer at time of crash 

DIEPC = Program counter of DIE call 

TRPAR5 = PAR 5 value at trap 

SP = All registers - RO, Rl, R2, R3, R4, R5 

A non-interrupt output routine is used to display information to 
an XON/XOFF device or a parallel port printer. The following 
information is output: 

Registers (RO through R5) 

SP (stack pointer) 

PC (program counter from error) 

PSW 

Stack contents 

Miscellaneous data cells 

Line definition tables 

Device definition tables 



DODUMP: 



Disable interrupt and locate the dump device registers. 



000724 012737 001140' 000004 



013705 
042705 
005015 
103411 
010537 
010537 
062737 
117700 
062705 
005015 
103457 
010537 
010537 
062737 



013737 
013737 
012705 
012700 
012645 
077002 



OOOOOOG 
000004 



000050 ' 
000046 ' 
000002 
177056 
000004 



000046 ' 



1*: 



000044 ' 
000042 ' 
000002 000042 



OOOOOOG 000020 
OOOOOOG 000016 
000016' 
000006 



DISABL 

MOV 

MOV 

MOV 

BIC 

CLR 

BCS 

MOV 

MOV 

ADD 

MOVB 

ADD 

CLR 

BCS 

MOV 

MOV 

ADD 



#DMPTRP, e#4 

#340, e#6 

VDMTCR, R5 

#4, R5 

(R5) 

1$ 

R5, RCSR 

R5, RBUF 

#2, RBUF 

SRBUF, RO 

#4, R5 

(R5) 

50* 

R5, TCSR 

R5, TBUF 

#2, TBUF 



Disable all interrupts 
Capture the trap 4 address 
Retain disable interrupt status 
Find the display device CSR 
Adjust for receiver CSR 
Check for receiver CSR 
Br if receiver not available 
Insert receiver address 
Insert receiver buffer 

offset 2 from CSR 
Throw away any pending input 
Ajust to transmit CSR 
Check for transmitter CSR 
Br if transmitter not available 
Insert transmiter CSR 
Insert transmiter buffer address 

offset 2 from CSR 



Save values on entry (registers, kernel mapping, etc. ), 



10*: 



MOV e#KPAR6, SVPAR6 

MOV TRPAR5, SVPAR5 

MOV #SVREG, R5 

MOV #6, RO 

MOV (SP)+, -(R5) 

SOB RO, 10* 



; Save kernel PAR 6 

i Save kernel PAR 5 

i Save registers on current stack 

J Save registers R0-R6 

; Save all the register contents 

i Continue until all register saved 





TSDUMP 


— TSX- 


Plus crash dump 




DODUMP 


— Dump 


entry p 


Dint 




58 










59 










60 










61 


001046 








62 


001056 


004737 


001150' 




63 


001062 


004737 


001476' 




64 


001066 


004737 


002414' 




65 


001072 


004737 


001642' 




66 


001076 


004737 


001666' 




67 


001102 


004737 


002012' 




68 


001106 


004737 


002314' 




69 


001112 


004737 


002474 ' 




70 


001116 


004737 


002506 ' 




71 


001122 


004737 


002106' 




72 


001126 


004737 


002520 ' 




73 


001132 


004737 


002556 ' 




74 


001136 


000000 






75 










76 










77 










78 


001140 


052766 


000001 


M 


79 


001146 


000002 





MACRO V05. 04 Friday 22-Jan-88 16:44 Page 16-1 



Output information concerning the current state. 





PRINT 


#FF 




CALL 


DATTIM 




CALL 


ERROR 




CALL 


JOB 




CALL 


REG 




CALL 


MODADR 




CALL 


OVRADR 




CALL 


MISC 




CALL 


LINE 




CALL 


DEVICE 




CALL 


STACK 




CALL 


FORK 




CALL 


JCBINF 


50*: 


HALT 




i 

; Trap 

• 


to 4 


control. 


DMPTRP: 


BIS 
RTI 


#1,2(SP) 



Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Outp 
Now 



ut form feed character 

ut date and time information 

ut error status information 

ut current job information 

ut the register contents 

ut TSX-Plus module addresses 

ut TSX-Plus overlay regions 

ut miscellaneous information 

ut line table information 

ut handler table information 

ut the stacN contents 

ut fork block information 

ut job context information 

where to? 



Buffer not found* 
Return from trap 



set c-bit 



4 
i 



TSDUMP 


-- TSX- 


•Plus crash dump 


DATTIM • 

1 
2 
3 
4 

5 


— Displ 


ay date 


and time 


001150 






6 


001160 


013705 


OOOOOOG 


7 


001164 


001451 




8 


001166 


010501 




9 


001170 


072127 


177773 


10 


001174 


042701 


177740 


11 


001200 


012703 


000002 


12 


001204 


004737 


004024 ' 


13 


001210 






14 


001220 


010501 




15 


001222 


072127 


177767 


16 


001226 


042701 


177741 


17 


001232 


016101 


000312' 


18 


001236 


012703 


000004 


19 


001242 


004737 


004220 ' 


20 


001246 






21 


001256 


010501 




22 


001260 


042701 


177740 


23 


001264 


062701 


000110 


24 


001270 


012703 


000002 


25 


001274 


004737 


004024 ' 


26 


001300 






27 








28 








29 








30 


001310 


013700 


OOOOOOG 


31 


001314 


013701 


OOOOOOG 


32 


001320 


013703 


OOOOOOG 


33 


001324 


004737 


001440' 


34 


001330 


010246 




35 


001332 


012703 


000074 


36 


001336 


012705 


000002 


37 


001342 


004737 


001440' 


38 


001346 


010246 




39 


001350 


077504 




40 


001352 


010146 




41 


001354 


012705 


000004 


42 


001360 


000404 




43 


001362 






44 


001372 


012601 




45 


001374 


005000 




46 


001376 


071027 


000012 


47 


001402 


062700 


000060 


48 


001406 






49 


001412 


062701 


000060 


50 


001416 






51 


001424 


077522 




52 


001426 






53 


001436 


000207 
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SBTTL 



DATTIM — Display date and time information 

DATTIM is called to display the current date and time information. 

lay CR/LF 
current date 

late set - skip date 
to working register 
the day (bits 5-9) 
unwanted bits 

;e decimal display 

it the day 

lut "-" 
date to working register 
the month <bits 10-13) 
unwanted bits (word offset) 

tet into month table 

:e radSO display 

>ut three char month 

lUt "-" 
date to working register 
the year (bits 0-4) 
is relative to 1972 

:e decimal display 



DATTIM: PRINT 


#CRLF 


i Disp 


MOV 


SYSDAT, R5 


(Get 


BEQ 


10* 


iNo d 


MOV 


R5, Rl 


Copy 


ASH 


#-5, Rl 


Find 


BIC 


#'^C37, Rl 


Mask 


MOV 


#«DEC, R3 


Fore 


CALL 


OUTVAL 


Prin 


TTYOUT 


#'- 


Outp 


MOV 


R5, Rl 


Copy 


ASH 


#-9. ,R1 


Find 


BIC 


#•^036, Rl 


Mask 


MOV 


M0NTH-2(R1).R1 


Offs 


MOV 


#*RAD50, R3 


Fore 


CALL 


OUTRAD 


Outp 


TTYOUT 


#'- 


Outp 


MOV 


R5,R1 


Copy 


BIC 


#•'^037, Rl 


Find 


ADD 


#72. ,R1 


Year 


MOV 


#*DEC, R3 


Fore 


CALL 


OUTVAL 




PRINT 


#SPSTR 


Prin 



Output the current time. 



10«: 



11*: 



20*: 
21*: 



MOV 


SYTIMH, RO 


MOV 


SYTIML, Rl 


MOV 


TKISEC, R3 


CALL 


DIV32 


MOV 


R2, -(SP) 


MOV 


#60. , R3 


MOV 


#2, R5 


CALL 


DIV32 


MOV 


R2, -(SP) 


SOB 


R5, 11* 


MOV 


R1,-(SP) 


MOV 


#4, R5 


BR 


21* 


TTYOUT 


#': 


MOV 


(SP)+,R1 


CLR 


RO 


DIV 


#10. ,R0 


ADD 


#'0, RO 


TTYOUT 




ADD 


#'0,R1 


TTYOUT 


Rl 


SOB 


R5, 20* 


PRINT 


#CRLF 



i Print blank space 



Get the current time (high) 

clock ticks past midnight (low) 
Get number of clock ticks per second 
Divide clock ticks per second 
Save ticks 
Get 60. per unit 
Process secondsi minutesi hours 
Divide by 60. per unit 
Save remainder 

Continue for seconds^ minutes^ hours 
Save final quotient 

Loop for minutes* seconds* and ticks 
Output the time past midnight 
Output ": " 
Get the next value 
Clear high order 
Divide by ten 
Convert to ascii number 
Display high digit (quotient) 
Convert to ascii number 
Display low digit (remainder 
Continue for hours* minutes* seconds* 
Display CR/LF 



ticks 



TSDUMP 


— TSX- 


Plus crash dump 


DIV32 

1 
2 
3 


— Divi 


de 16-bit into 






4 






5 






6 






7 






8 


001440 


010446 


9 


001442 


005002 


10 


001444 


012704 000037 


11 


001450 


006301 


12 


001452 


006100 


13 


001454 


006102 


14 


001456 


020203 


15 


001460 


103402 


16 


001462 


160302 


17 


001464 


005201 


IS 


001466 


005304 


19 


001470 


100367 


20 


001472 


012604 


21 


001474 


000207 
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. SBTTL DIV32 



Divide 16-bit into 32-bit 



DIV32 divides a 16-bit number in R3 into a 32-bit number 
in RO <high order) and Rl <louj order). The quotient is 
returned in RO. Rl and the remainder is returned in R2. 
All other registers are preserved. 



DIV3i 



1*: 



2*: 



MOV 


R4, -(SP) 


CLR 


R2 


MOV 


#31. ,R4 


ASL 


Rl 


ROL 


RO 


ROL 


R2 


CMP 


R2, R3 


BLO 


2* 


SUB 


R3, R2 


INC 


Rl 


DEC 


R4 


BPL 


1* 


MOV 


< SP ) +, R4 


RETURN 





Save registers 
Initialize remainder 
Initialize shift count 
Shift from low order 

through high order 

into remainder 
Check remainder for subtraction 
Br if unable to subtract 
Subtract divisor 
Increment quotient 
Check remaining bit 
Continue if more to 
Restore registers 



shift count 
consider 



i 



1 TSDUMP 


— TSX- 


•Plus crash dump 


' ERROR 


— Disp 


lay error status 


- 1 

' 2 








3 








g 4 








' 5 


001476 






6 


001506 






g 7 


001516 






' 8 


001526 


013701 


OOOOOOG 


9 


001532 


005003 




1 ^° 


001534 


004737 


004024 ' 


' 11 


001540 






12 


001550 


013705 


OOOOOOG 


i 13 


001554 


001413 




' 14 


001556 






15 


001566 


010501 




1 1^ 


001570 


004737 


004220 ' 


' 17 


001574 






IS 


001604 


013705 


OOOOOOG 


tf 19 


001610 


001413 




' 20 


001612 






21 


001622 


010501 




^ 22 


001624 


004737 


004220 ' 


* 23 


001630 






24 


001640 


000207 




25 
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. SBTTL ERROR 



Display error status information 



ERROR is called to display the error status information. 



ERROR: 



1«: 



?*: 



PRINT 

PRINT 

PRINT 

MOV 

CLR 

CALL 

PRINT 

MOV 

BEQ 

PRINT 

MOV 

CALL 

PRINT 

MOV 

BEQ 

PRINT 

MOV 

CALL 

PRINT 

RETURN 



#CRLF 

#DMPTXT 

#TXARG 

DIEARG, Rl 

R3 

OUTVAL 

#CRLF 

DMPOVL, R5 

1$ 

#TXOID 

R5, Rl 

OUTRAD 

#CRLF 

DMPHND, R5 

2* 

#TXDEV 

R5, Rl 

OUTRAD 

#CRLF 



Display CR/LF 

Display fatal error message 

Display "Arg. value" 

Get the argument value 

Set display characteristics 

Output argument value 

Display CR/LF 

Get the rad50 overlay identifier 

Br if zeroj not in overlay 

Display "Overlay: " 

Copy overlay identifier 

Output radSO overlay identifier 

Display CR/LF 

Get the radSO handler identifier 

Br is zero* not in handler 

Display "Device name: " 

Copy device handler identifier 

Output radSO handler identifier 

Display CR/LF 

Finished 
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REG — Display contents of registers 

1 . SBTTL REG — Display contents of registers 



2 , - ----- 

3 ; REG is called to display the contents of the registers. 

*r i 

5 001642 REG: PRINT #CRLF ; Display CR/LF 

6 001652 005002 CLR R2 i Clear offset pointer 

7 001654 012705 000000' MOV #PRTREG, R5 ; Point to register output table 

8 001660 004737 002702' CALL OLIST i Output the list of values 

9 001664 000207 RETURN 



I 
I 



I 

i 



. TSDUMP 


— TSX- 


•Plus crash dump 


MACRO V05. 


04 


Friday 22 


-Jan-8S 16: 44 


Page 21 


* MODADR 


— Disp 


lay TSX. 


SAV modu 


Le addresses 








. 1 
' 2 
3 
. 4 
' 5 










• - 

i 




. SBTTL 


MODADR — Dis 


play TSX. SAV module addresses 


MODADR is ca 


lied to display 


the module address contained in TSX. S 


001666 








i 

MODADR 








6 


001666 












PRINT 


#CRLF 


; Display CR/LF 


. 7 


001676 


012737 


OOOOOOG 


000022 ' 






MOV 


#TSGEN, ADGEN 


i Save the TSGEN address 


* S 


001704 


012737 


0000000 


000024 ' 






MOV 


#TSTIO, ADTIO 


/Save the TSTIO address 


9 


001712 


012737 


0000000 


000026 ' 






MOV 


#TSEXEC, ADEXEC 


; Save the TSEXEC address 


tf 10 


001720 


012737 


OOOOOOG 


000030 ' 






MOV 


#TSEMT, ADEMT 


; Save the TSEMT address 


' 11 


001726 


012737 


OOOOOOG 


000032 ' 






MOV 


#TSINIT, ADINIT 


j Save the TSINIT address 


12 


001734 


013705 


OOOOOOG 








MOV 


TIOBAS, R5 


iQet PAR of TSTIOX 


i ^^ 


001740 


072527 


000006 








ASH 


#6, R5 


; Convert to address 


' 14 


001744 


010537 


000034 ' 








MOV 


R5, ADTIOX 


iGet the TSTIOX address 


15 


001750 


013705 


OOOOOOG 








MOV 


LOKBAS, R5 


iSave PAR of TSLOCK 


, 16 


001754 


072527 


000006 








ASH 


#6, R5 


i Convert to address 


1 17 


001760 


010537 


000036 ' 








MOV 


R5, ADLOCK 


i Save the TSLOCK address 


18 


001764 


013705 


OOOOOOG 








MOV 


CSHBAS, R5 


iGet PAR of TSCASH 


19 


001770 


072527 


000006 








ASH 


#6, R5 


/Convert to address 


* 20 


001774 


010537 


000040 ' 








MOV 


R5, ADC ASH 


j Save the TSCASH address 


21 


002000 


012705 


000100' 








MOV 


#ADDR, R5 


/Point to address output list 


. 22 


002004 


004737 


002702 ' 








CALL 


OLIST 


/Output address contents 


' 23 


002010 


000207 










RETURN 







TSDUMP 


— TSX- 


-Plus crash dump 


OVRADR 


— TSX- 


■Plus overlay reg 


1 
2 








3 








4 








5 








6 








7 








e 








9 








10 








n 


002012 






12 


002012 






13 


002022 






14 


002032 


013705 


OOOOOOG 


15 


002036 


012501 




16 


002040 


004737 


004220 ' 


17 


002044 






18 


002054 


012501 




19 


002056 


005003 




20 


002060 


004737 


004024 ' 


21 


002064 


005725 




22 


002066 






23 


002076 


021527 


004537 


24 


002102 


001355 




25 


002104 


000207 
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Ion 

. SBTTL OVRADR — TSX-Plus overlay region 

OVRADR is called to display the overlay region locations. 

Overlay table structure: 

OVRADD — > *OVTAB: 

. WORD <IDENTIFIER>, <KPAR5>, <WORD COUNT> 
DUMMY SUBROUTINES FOR ALL OVERLAY SEGMENTS 



Display CR/LF 
Display header 

Find the overlay table address 
Get the overlay identifier 
radSO id 



OVRADR: 








PRINT 


#CRLF 




PRINT 


#OVLREG 




MOV 


OVRADD, R5 


10*: 


MOV 


<R5)+,R1 




CALL 


OUTRAD 




PRINT 


#EQSTR 




MOV 


(R5)+,R1 




CLR 


R3 




CALL 


OUTVAL 




TST 


(R5) + 




PRINT 


#CRLF 




CMP 


<R5),#4537 




BNE 


10* 




RETURN 





Display 
Display 
Get the 
Default 
Display 



KPAR5 
octal 
KPAR5 



value 

display 

value 



value 



Display CR/LF 

Compare mith a <JSR R5* *OVRH> instruction 

Br if not end of the table 



TSDUMP 


— TSX- 


■Plus crash dump 


STACK 


— Disp 


lay cont 


ents of 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


002106 






15 


002116 


013705 


OOOOOOG 


16 


002122 


010504 




17 


002124 


020527 


ooooooe 


18 


002130 


101013 




19 








20 








21 








22 


002132 


162704 


OOOOOOG 


23 


002136 


001465 




24 


002140 


005404 




25 


002142 






26 


002152 


004737 


003036 ' 


27 


002156 


000207 




28 


002160 


020537 


OOOOOOG 


29 


002164 


101013 




30 








31 








32 








33 


002166 


163704 


OOOOOOG 


34 


002172 


001447 




35 


002174 


005404 




36 


002176 






37 


002206 


004737 


003036 ' 


38 


002212 


000207 




39 


002214 


020527 


OOOOOOG 


40 


002220 


103416 




41 


002222 


020527 


OOOOOOG 


42 


002226 


101013 




43 








44 








45 








46 


002230 


162704 


OOOOOOG 


47 


002234 


001426 




48 


002236 


005404 




49 


002240 






50 


002250 


004737 


003036 ' 


51 


002254 


000207 




52 








53 








54 








55 


002256 






56 


002266 


020527 


OOOOOOG 


57 


002272 


103403 
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SBTTL STACK 



Display contents of stack 



STACK is called to display the contents of the stack. 

There are three possible stack configurations. The users system 

stack is stored in the each job's context region. This stack 

is bounded by JSTK (top of stack) and JSTKND (bottom of stack). 

The interrupt stack is used during interrupt processing and is 

allocated over TSINIT code. The address boundary of this stack 

is stored in INTSTK (top of stack) and INTSND (bottom of stack) 

located in TSEXEC. The system stack is used during scheduling 

and is located between SS (top of stack) and SSEND (bottom of stack). 



STACK: 



5*: 



PRINT 


#CRLF 


MOV 


DIESP,R5 


MOV 


R5, R4 


CMP 


R5, #SS 


BHI 


10* 



i Display CR/LF 



j Get the stack pointer 

jCopy the base of the stack 

j Below the top of the system stack? 

i No/ SP not in system stack 



Stack pointer is in the system stack area. 



10*: 



SUB 


#SS, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


#STKSS 


CALL 


OSTACK 


RETURN 




CMP 


R5, INTSTK 


BHI 


20* 



j Calculate number of bytes to dump 
i No stack space used 
; Convert to positive byte count 
{Display "System Stack Contents" 
i Output the stack contents 

i Below the top of the interupt stack? 
i Noj SP not in interrupt stack 



Stack pointer is in the interrupt stack area. 



20*: 



SUB 


INTSTK, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


#STKINT 


CALL 


OSTACK 


RETURN 




CMP 


R5, # JSTKND 


BLO 


30* 


CMP 


R5, #JSTK 


BHI 


30* 



i Calculate number of bytes to dump 

; No stack space used 

i Convert to positive byte count 

; Display "Interrupt Stack Contents" 

; Output the stack contents 

; Above the end of the context stack? 
j Invalid stack pointer 
i Below the top of the context stack? 
; No, SP not in job context stack 



Stack pointer is in the job's context stack. 

fl*: SUB #JSTK, R4 ; Calculate number of bytes to dump 

; No stack space used 
i Convert to positive byte count 
{Display "EMT Stack Contents" 
{Output the stack contents 

Stack pointer is invalid. Output 40 words where SP is pointing. 



SUB 


#JSTK, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


#STKEMT 


CALL 


OSTACK 


RETURN 





30*: 



PRINT 

CMP 

BLO 



#INVSTK 
R5, #VPAR5 
40* 



{Display "Invalid stack" 

{Check for EMT stack overflow 

{Br if below 120000, unknown stack 



I 
I 
I 
f 



\ 
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STACK — Display contents of stack 
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58 002274 

59 002300 

60 002302 

61 002306 

62 002312 



012705 
000753 
012704 
004737 
000207 



OOOOOOG 

000310 
003036 ' 



40* : 



50*: 



MOV 


#VPAR6, 


BR 


21* 


MOV 


#100. *2 


CALL 


OSTACK 


RETURN 





R5 



R4 



i Adjust stack pointer to EMT stack 
i Dump job context stack 
; Dump 100. words from stack pointer 
i Output the stack contents 



I 

< 

I 
I 

I 



TSDUMP 


— TSX- 


■Plus crash dump 


MACRO 


MISC 

1 
2 
3 
4 
5 


— Disp 


lay misc 


system values 


002314 








6 


002314 








7 


002324 


105737 


OOOOOOG 




8 


002330 


002404 






9 


002332 








10 


002342 


105737 


OOOOOOG 




11 


002346 


001404 






12 


002350 








13 


002360 


023727 


ooooooe 


123456 


14 


002366 


001404 






15 


002370 








16 


002400 


005002 






17 


002402 


012705 


000164' 




18 


002406 


004737 


002702 ' 




19 


002412 


000207 
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. SBTTL MISC — Display misc system values 
MISC is called to display the miscellaneous system values. 



MISC: 



10*: 



20*: 



30*: 



PRINT 


#CRLF i 


TSTB 


INTLVL ; 


BLT 


10* i 


PRINT 


#INTLEV i 


TSTB 


FRKPRI 


BEQ 


20* i 


PRINT 


#FRKLEV ; 


CMP 


SSEND, #123456 i 


BEQ 


30* i 


PRINT 


#STKOVR } 


CLR 


R2 ; 


MOV 


#VMISC, R5 } 


CALL 


OLIST i 


RETURN 





Display CR/LF 

Check interrupt level 

Br if not executing interrupt 

Display "Interrupt level" 

Check fork priority 

Br if not executing fork 

Display "Fork level" 

Check end of system stack 

Br if stack end is valid 

Display "System stack overflow" 

Clear offset pointer 

Point to miscellaneous output list 

Output the list of values 



€ 



TSDUMP — TSX-Plus crash dump MACRO V05. 04 
JOB — Display info about current job 



1 
2 
3 
4 

5 002414 

6 002424 

7 002434 

8 002444 

9 002450 

10 002452 

11 002456 

12 002462 

13 002472 
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SBTTL JOB 



— Display info about current job 



JOB is called to display information concerning the executing job. 



JOB: 



113701 
006201 
012703 
004737 

000207 



OOOOOOG 

000002 
004024 ' 



PRINT 


#CRLF 


PRINT 


#CURJOB 


PRINT 


#EQSTR 


MOVE 


CORUSR.Rl 


ASR 


Rl 


MOV 


#*DEC> R3 


CALL 


OUTVAL 


PRINT 


#CRLF 


RETURN 





Display CR/LF 

Disp "Job executing at time of dump" 

Display " = " 

Get the current operating job index 

Divide by two for the job number 

Force decimal display 

Output the job number 

Display CR/LF 



I 
< 
I 
f 
i 
i 
I 
I 
i 

i 

< 
I 
I 
4 

i 

i 
i 
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LINE — Display line definition tables 



1 . SBTTL LINE — Display line definition tables 

2 ; 

3 ; LINE is called to display the generated line definition tables. 

4 i 

5 002474 012705 000622' LINE: MOV #JLIN, R5 ; Point to job line table 

6 002500 004737 003112' CALL OTABLE ; Output line definition values 

7 002504 000207 RETURN 
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DEVICE — Display device definition tables 

1 . SBTTL DEVICE — Display device definition tables 

3 » DEVICE is called to display the generated device definition tables. 

4 ; 

5 002506 012705 001410' DEVICE: MOV #DHAN, R5 i Point to device table 

6 002512 004737 003112' CALL OTABLE ; Output device table values 

7 002516 000207 RETURN 
8 



TSDUMP 


— TSX- 


-Plus crash dump 


FORK 

1 


— Disp 


lay fork 


block i 


3 
4 
5 


002520 


013702 


OOOOOOG 


6 


002524 


001413 




7 


002526 






S 


002536 


012705 


001546' 


9 


002542 


004737 


002702 ' 


10 


002546 


016202 


OOOOOOG 


11 


002552 


001365 




12 


002554 


000207 
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. SBTTL FORK — Display fork block information 
; FORK is called to display information on the FORK list 
FORK: 
1*: 



2$: 



MOV 


FRKCQE, R2 


QEQ 


2* 


PRINT 


#CRLF 


MOV 


#FRKREQ, R5 


CALL 


OLIST 


MOV 


FQ*LNK<R2>,R2 


BNE 


1* 


RETURN 





i Oet pointer to pending FORK requests 

i Br if no FORK pending 

/Display CR/LF 

iPoint to fork display list 

i Output the list of values 

» Get next FORK element in link list 

i Br if more to display 



TSDUMP 
JCBINF 



TSX-Plus crash dump MACRO V05. 04 
Display job contextinf ormation 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



002556 
002562 
002564 
002570 
002572 
002576 
002600 
002606 
002610 
002616 



002622 
002626 
002632 
002636 
002640 
002644 



26 

27 002650 

20 002660 

29 002664 

30 002666 

31 002672 

32 002700 



1 1 3700 
001446 
005760 
001443 
016001 
001440 
032760 
001434 
013737 
010137 



1 1 3700 
042700 
120027 
103402 
062700 
1 1 0037 



012705 
005002 
004737 
013737 
000207 



. SBTTL JCBINF — Display job contextinf ormation 
JCBINF is called to display job contextinf ormation. 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 000054' 
OOOOOOG 



00000 IG 

177400 

OOOOOOG 

OOOOOOC 
000056 ' 



JCBINF: MOVE 
BEQ 
TST 
BEQ 
liOV 
BEQ 
BIT 
BEQ 
MOV 
MOV 



CORUSR, RO 

10* 

LBASE(RO) 

10* 

LCXPAR(R0),R1 

10* 

#*INC0R,LSW<R0) 

10* 

@#KPAR6, SAVKP6 

R1,@#KPAR6 



Get the current executing user 

Br if no user is active 

Test base page no. of job context mappinc 

Br if job context not mapped 

Get PAR relocation of job context 

Br if job context not mapped 

Is user job in memory? 

Br if not in memory 

Save current par6 mapping 

Map to context region 



Convert translated function code back to recognizable form. 



5*: 



MOVB 

BIC 

CMPB 

BLO 

ADD 

MOVB 



EMTBLK+l.RO 
#•'^0377, RO 
R0/#RT11EX 

5* 



; Get EMT function code 
iClear sign extend bits 
i Is this RT-11 or TSX function 
; Br if Rt-11 function 



#<100-RT11EX>. ROi Add table bias 

RO. EMTFUN i Store in local cell 



Display information from job context region. 



001646' 

002702 ' 
000054 ' 



OOOOOOG 



10*: 



PRINT 

MOV 

CLR 

CALL 

MOV 

RETURN 



#CRLF 

#VJCB, R5 

R2 

OLIST 

SAVKP61 @#KPAR6 



/Display carriage return/line feed 
i Point to job context output list 
i Clear the offset pointer 
; Output job context information 
/Restore kernel par 6 mapping 



t 
\ 



TSDUMP 


— TSX- 


Plus crash dump 


OLIST 


— Outp 


ut a lis 


t of in 


1 
2 








3 








4 








5 








6 








7 








8 








9 


002702 


010546 




10 


002704 


010446 




11 


002706 


010346 




12 


002710 


010246 




13 


002712 


010146 




14 








15 








16 








17 


002714 


012501 




18 


002716 


001437 




19 


002720 






20 


002724 


000434 




21 








22 








23 








24 


002726 






25 


002734 






26 


002744 


016503 


000002 


27 


002750 


016504 


000004 


28 


002754 


060204 




29 


002756 


032703 


000001 


30 


002762 


001404 




31 


002764 


111401 




32 


002766 


042701 


177400 


33 


002772 


000401 




34 


002774 


011401 




35 


002776 


004737 


004024 


36 


003002 






37 


003012 


062705 


000006 


38 








39 








40 








41 


003016 


005715 




42 


003020 


001342 




43 








44 








45 








46 


003022 


012601 




47 


003024 


012602 




48 


003026 


012603 




49 


003030 


012604 




50 


003032 


012605 




51 


003034 


000207 
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. SBTTL OLIST — Output a list of information 

Output a list of information. 

Inputs: 

R5 = points to the head of the list of output information 
R2 = pointer to the offset (index) to the data item 



OLIST: MOV 
MOV 
MOV 
MOV 
MOV 



R5, -<SP) 
R4, -(SP) 
R3, -<SP) 
R2, -<SP) 
R1.~<SP) 



i Save registers 



Display the list header 



MOV 
QEQ 
PRINT 
BR 



(R5)+,R1 
100* 

100* 



Display identifier 



10*: 
30*: 



31*: 
32*: 

50*: 



PRINT 


<R5) 


PRINT 


#EQSTR 


MOV 


2(R5),R3 


MOV 


4(R5),R4 


ADD 


R2, R4 


BIT 


#*BYTE, R3 


BEQ 


31* 


MOVE 


eR4. Rl 


BIC 


#•■^0377, Rl 


BR 


32* 


MOV 


eR4, Rl 


CALL 


OUTVAL 


PRINT 


#CRLF 


ADD 


#6, R5 



jPoint to list header 
i Br if not header 
{Display the list header 
jOutput entire display list 



Print identifier 

Point to string " = " 

Set field attributes 

Get the field address 

Add field bias 

Word or byte storage element? 

Br if word element 

Get numeric value 

Clear sign extend 

Continue 

Get the numeric value 

Output the numeric value 

Point to carriage return / line feed 

Increment to next list entry 



Continue output of list elements. 



100*: 



TST 
BNE 



Finished 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



<R5) 
10* 



(SP)+,R1 
<SP)+, R2 
(SP)+, R3 
<SP)+, R4 
(SP)+, R5 



; Point to the next list entry 
i Br if list continues 



iRestore registers 



i Finished 
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OSTACK — Display stack contents 



1 
2 
3 
4 

5 003036 

6 003036 

7 003040 

8 003050 

9 003052 

10 003054 

11 003060 

12 003070 

13 003072 

14 003076 

15 003106 

16 003110 



SBTTL OSTACK — Display stack contents 



006204 

005003 
010501 
004737 

012501 
004737 

077417 
000207 



Output the stack contents. 



004024 



004024 ' 



Ub ) ACJ 


ASR 


R4 


; Convert 




PRINT 


#STKCNT 


i Display 




CLR 


R3 


; Set for 


10*: 


MOV 


R5, Rl 


;Copy the 




CALL 


OUTVAL 


i Display 




PRINT 


#STKDLM 


; Display 




MOV 


<R5)+,R1 


; Get the 




CALL 


OUTVAL 


; Display 




PRINT 


#CRLF 


; Display 




SOB 


R4, 10* 


* Continue 




RETURN 







byte count to uiord count 

header 

octal display 

stack address 
stack address 
del imiter 
stack contents 
stack contents 
CR/LF 

until done 



TSDUMP 


— TSX- 


Plus crash dump 


OTABLE 
1 


— Outp 


ut tables of inf 


2 
3 
4 








5 


003112 






6 


003112 


004737 


003150' 


7 


003116 


004737 


003204 ' 


9 


003122 


004737 


003354 ' 


9 


003126 


004737 


003630 ' 


10 


003132 


005715 




11 


003134 


001370 




12 


003136 






13 


003146 


000207 





MACRO V05. 04 
information 



Friday 



-Jan-SS 16: 44 Page 3i 



I 

c 



SBTTL OTABLE 



Output tables of information 



Output tables of information. 



OTABLE: 



1*: 



CALL 

CALL 

CALL 

CALL 

TST 

BNE 

PRINT 

RETURN 



TINIT 

TCLR 

TACCR 

TOUT 

(R5) 

1* 

#CRLF 



Initialize for table output 

Clear output tables 

Accrue table information 

Display table values 

Check for more table information 

Br if more to display 

Display CR/LF 



t 
I 

i 

i 
i 
i 
f 
C 
i 

4 
€ 

i 
I 

I 

I 
I 
I 

4 
4 
I 
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1 
2 
3 

4 003150 

5 003160 

6 003166 

7 003172 

8 003202 
9 

10 
11 

12 003204 

13 003210 

14 003212 

15 003216 

16 003222 

17 003226 

18 003232 

19 003236 

20 003242 

21 003246 

22 003250 

23 003252 

24 003256 
25 

26 
27 

28 003260 

29 003270 

30 003300 

31 003310 

32 003314 

33 003320 

34 003330 



005037 
000207 



012702 
006302 
005062 
005062 
005062 
005062 
005062 
005062 
162702 
003361 
002427 
005737 
001755 



016201 
004737 

000207 



000052 ' 



000014 

000060 ' 
000112' 
000144' 
000176' 
000230 ' 
000262 ' 
000002 



000052 



000112' 
004342 ' 



Initialize for display start or continuation of table format. 



TINIT: 



PRINT 

PRINT 

CLR 

PRINT 

RETURN 



#CRLF 
(R5) + 
COL 
#CRLF 



i Display CR/LF 
/Display the table title 
j Clear column counter 
; Display CR/LF 



Clear table entries for continuation of table format. 



TCLR: 
10*: 



MOV 
ASL 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
SUB 
BGT 
BLT 
TST 
BEQ 



R2 

TSC0L(R2) 

TEC0L(R2) 

TSINX<R2) 

TEINX<R2) 

TATT<R2) 

TADR<R2) 

#2. R2 

10* 

20* 

COL 

10* 



Table continuation display. 



?0*: 



PRINT 


#CRLF 


PRINT 


#CRLF 


PRINT 


TADR<R2) 


MOV 


TEC0L<R2)>R1 


CALL 


BLKPAD 


PRINT 


tSPSTR 


RETURN 





Initilize table storage information 

Convert to word index 

Clear starting column number 

Clear ending column number 

Clear starting index number 

Clear ending index number 

Clear attribute flags 

Clear address location 

Subtract from table index 

Continue for all entries 

All entries are clear 

Check column counter 

Br if first table initialization call 



i Print CR/LF 

i Print CR/LF 

; Print columnar heading 

j Find ending column information 

iBlank fill 

j Print blanks for spacing 



TSDUMP 


— TSX- 


•Plus crash dump 


MACRO V05. 04 


Friday 22 


-Jan -88 16: 44 Pa 


OTABLE 


— Outp 


ut tables of inf 


ormation 








1 
2 
3 










> Accrue information concerning 


4 


003332 








NXTCOL 


• 




5 


003332 


016562 


000004 


000262 ' 




MOV 


4<R5),TADR(R2) 


6 


003340 


062705 


000012 






ADD 


#10. ,R5 


7 


003344 










PRINT 


#SPSTR 


8 


003354 


062702 


000002 




TACCR: 


ADD 


#2. R2 


9 


003360 


020227 


000014 






CMP 


R2, #NCOL 


10 


003364 


002120 








BGE 


50* 


11 


003366 


005715 








TST 


<R5) 


12 


003370 


001516 








BEQ 


50* 


13 


003372 


013762 


000052 ' 


000060 ' 




MOV 


COL, TSC0L<R2) 


14 


003400 










PRINT 


(R5) 


15 


003406 


013762 


000052 ' 


000112' 




MOV 


COL, TEC0L<R2> 


16 


003414 


016562 


000002 


000230 ' 




MOV 


2<R5),TATT(R2) 


17 


003422 


016500 


000006 






MOV 


6<R5),R0 


18 


003426 


001002 








BNE 


1* 


19 


003430 


013700 


000144' 






MOV 


TSINX.RO 


20 


003434 


010062 


000144' 




1*. 


MOV 


RO, TSINX<R2) 


21 


003440 


016500 


000010 






MOV 


10(R5),R0 


22 


003444 


001002 








BNE 


2* 


23 


003446 


013700 


000176' 






MOV 


TEINX,RO 


24 


003452 


010062 


000176' 




2$: 


MOV 


RO, TEINX(R2) 


25 


003456 


012700 


000006 






MOV 


#6, RO 


26 


003462 


032762 


000001 


000230 ' 




BIT 


#*BYTE, TATT(R2) 


27 


003470 


001402 








BEO 


10* 


28 


003472 


012700 


000003 






MOV 


#3, RO 


29 


003476 


066200 


000060 ' 




10*: 


ADD 


TSC0L<R2), RO 


30 


003502 


026200 


000112' 






CMP 


TEC0L<R2),R0 


31 


003506 


001427 








BEQ 


30* 


32 


003510 


101013 








BHI 


20* 


33 


003512 


010001 








MOV 


RO, Rl 


34 


003514 


166201 


000112' 






SUB 


TEC0L<R2),R1 


35 


003520 


010062 


000112' 






MOV 


RO, TEC0L(R2) 


36 


003524 


112700 


000040 






MOVB 


#' ,R0 


37 


003530 








11*. 


TTYOUT 




38 


003534 


077103 








SOB 


Rl, 11* 


39 


003536 


000413 








BR 


30* 


40 


003540 


166200 


000112' 




20*: 


SUB 


TEC0L<R2),R0 


41 


003544 


032762 


040000 


000230 ' 




BIT 


#*RJUST, TATT(R2) 


42 


003552 


001403 








BEQ 


21* 


43 


003554 


160062 


000060 ' 






SUB 


RO, TSC0L(R2) 


44 


003560 


000402 








BR 


30* 


45 


003562 


060062 


000112' 




21*: 


ADD 


RO, TEC0L<R2) 


46 


003566 


026227 


000112' 


000120 


30*: 


CMP 


TEC0L<R2),#S0. 


47 


003574 


103656 








BLO 


NXTCOL 


48 


003576 


005062 


000060 ' 






CLR 


TSC0L<R2) 


49 


003602 


005062 


000112' 






CLR 


TEC0L(R2) 


50 


003606 


005062 


000144' 






CLR 


TSINX(R2) 


51 


003612 


005062 


000176' 






CLR 


TEINX<R2) 


52 


003616 


005062 


000230 ' 






CLR 


TATT(R2) 


53 


003622 


005062 


000262 ' 






CLR 


TADR<R2) 


54 


003626 


000207 






50*: 


RETURN 





34 



table display while printing column headings. 



Store print string address 

Offset to the next column entry 

Print blanks for spacing 

Increment the field index 

End of columns allowed? 

Br is no more column storage 

See if a column entry exists 

End of table found 

Point to starting field position 

Display the column heading 

Set ending column position 

Store field attributes 

Get the starting index number 

Br if start is specified 

Set as starting table number 

Store starting index number 

Get the ending index number 

Br is end is specified 

Set as ending table number 

Store ending index number 

Assume 6 digit (word element) 

Check field attributes 

Br if word element 

Assume 3 digit <byte element) 

Add starting position 

Determine if ending position 

Field is exactly enough 

Br if field too long 

Copy ending column address 

Find difference 

Force ending column longer 

Store blank 

Pad output with blanks 

Continue until padded 

Go on to the next entry 

Subtract the ending column 

Check for right justify 

Br if left justify 

Adjust starting column position 

Adjust ending column position 
Check for line overflow 
Continue collecting columns 
Clear partial entry 



TSDUMP 


— TSX- 


Plus crash dump 


OTABLE 

1 
2 
3 
4 
5 


— Outp 


ut tables of inf 


003630 


010446 




6 
7 
8 
9 
10 


003632 


010546 




003634 


013705 


000144' 


11 


003640 






12 


003650 


010501 




13 


003652 


005002 




14 


003654 


016203 


000230 ' 


15 


003660 


004737 


004024 ' 


16 


003664 


000430 




17 








IS 








19 








20 


003666 


020562 


000144' 


21 


003672 


002425 




22 


003674 


020562 


000176' 


23 


003700 


003022 




24 








25 








26 








27 


003702 


004737 


004342 ' 


28 


003706 


016203 


000230 ' 


29 


003712 


016201 


000262 ' 


30 


003716 


060501 




31 


003720 


032703 


000001 


32 


003724 


001404 




33 


003726 


111101 




34 


003730 


042701 


177400 


35 


003734 


000402 




36 


003736 


060501 




37 


003740 


011101 




38 


003742 


004737 


004024 ' 


39 


003746 


062702 


000002 


40 


003752 


016201 


000060 ' 


41 


003756 


001343 




42 


003760 


005205 




43 


003762 


020537 


000176' 


44 


003766 


101724 




45 


003770 


012605 




46 


003772 


012604 




47 


003774 


000207 
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Display index value and data. 



TOUT: 



MOV 
MOV 



R4. -<SP) 
R5, -<SP) 



j Save some registers 



Display index offset into table. 



1$: 



MOV 


TSINX,R5 


PRINT 


#CRLF 


MOV 


R5, Rl 


CLR 


R2 


MOV 


TATT<R2),R3 


CALL 


OUTVAL 


BR 


40* 



Find the starting index 

Display CR/LF 

Copy index number 

Clear column index 

Numeric attribute 

Display index value 

Enter column output stream 



Determine if the value should be displayed. 



10*: CMP R5, TSINX<R2) 

BLT 40* 

CMP R5, TEINX<R2) 

BGT 40* 

Output rows of information. 



20*: 

30*: 
40*: 



CALL 


BLKPAD 


MOV 


TATT<R2>,R3 


MOV 


TADR<R2),R1 


ADD 


R5, Rl 


BIT 


#*BYTE, R3 


BEQ 


20* 


MOVB 


<R1>,R1 


BIC 


#'^C377, Rl 


BR 


30* 


ADD 


R5>R1 


MOV 


<R1),R1 


CALL 


OUTVAL 


ADD 


#2, R2 


MOV 


TSC0L<R2),R1 


BNE 


10* 


INC 


R5 


CMP 


R5, TEINX 


BLOS 


1* 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 



; Is the current index < starting 
> Yes/ skip entry 
; Is the current index > ending 
i Yesj skip entry 



Pad ufith spaces 

Get the attribute 

Check for existing entry 

Add the index offset (byte) 

Check for byte storage 

Br if word storage 

Get the stored byte value 

Kill sign extend bits 

Continue 

Add the index offset <u»ord) 

Get the stored word value 

Output the value 

Increment the index 

Get the starting column 

End of table entries 

Increment the index offset 

Check for ending index 

Br if more tables to output 

Restore registers 



( 
t 
f 
I 
I 
I 
I 

€ 
< 
t 
4 
i 



TSDUMP — TSX-Plus crash dump MACRO V05. 04 
DUTSTR — Output an asciz string 



Friday 22~Jan-88 16:44 Page 36 



3 






4 






5 






6 






7 






8 






9 


003776 




10 


003776 


112100 


11 


004000 


001404 


12 


004002 


100407 


13 


004004 




14 


004010 


000772 


15 


004012 




16 


004022 


000207 



. SBTTL OUTSTR — Output an asciz string 
OUTSTR - Output an asciz string. 



Arguments - 
Rl 



String address 



OUTSTR: 
1*: 



10*: 
20*: 



MOVE 

BEQ 

BMI 

TTYOUT 

BR 

PRINT 

RETURN 



<R1)+,R0 

10* 

20* 

1* 
#CRLF 



; Get next output byte 

> Zero* output OR / LF 

iExit on end of output string 

i Output the character 

iContine until end of string 

j Display carriage return / line 



feed 



f 



TSDUHP 
OUTVAL 



— TSX-Plus crash dump MACRO V05. 04 

— Convert and print a value 
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€ 
f 



4 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



SBTTL OUTVAL 



Convert and print a value 



004024 
004026 
004030 
004032 
004034 
004040 
004042 
004046 
004050 
004054 
004060 
004062 
004066 
004072 
004076 
004100 
004104 
004110 
004112 
004114 
004116 
004120 

004122 
004122 
004124 
004126 
004130 
004132 
004136 
004140 
004142 
004144 
004150 
004152 
004156 
004160 
004162 
004164 
004170 
004172 
004176 
004202 
004204 
004210 
004214 
004216 



000004 

004220 ' 

000010 
000002 

000012 
000006 
000001 

000003 
004122' 



010546 
010446 
010346 
010246 
032703 
001403 
004737 
000420 
012704 
032703 
001402 
012704 
012702 
032703 
001402 
012702 
004737 
012602 
012603 
012604 
012605 
000207 



005302 

002411 

005000 

071004 

062701 000060 

010146 

010001 

001406 

004737 004122 

1 1 2600 

000207 

005702 

001772 

032703 040000 

001767 

112700 000040 

032703 020000 

001402 

112700 000060 

077203 
000754 



i OUT 

i Arg 
> 

> 
OUTVAL: 



VAL 

uments 
Rl 
R3 



Convert and output a value. 



= Numeric value 

= Display string attributes 



1*: 



10*: 



20*: 
30*: 



CON VAL: 



2*: 



3*: 



4*: 



MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

CALL 

BR 

MOV 

BIT 

BEQ 

MOV 

MOV 

BIT 

BEQ 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

RETURN 



DEC 

BLT 

CLR 

DIV 

ADD 

MOV 

MOV 

BEQ 

CALL 

MOVB 

TTYOUT 

RETURN 

TST 

BEQ 

BIT 

BEQ 

MOVB 

BIT 

BEQ 

MOVB 

TTYOUT 

SOB 

BR 



R5, -(SP) 
R4, -<SP) 
R3, -(SP) 
R2, -<SP) 
#*RAD50, R3 
1* 

OUTRAD 
30* 

#10, R4 
#*DEC, R3 
10* 

#10. ,R4 
#6, R2 
#*BYTEi R3 
20* 
#3, R2 
CONVAL 
(SP)+, R2 
(SP)+, R3 
<SP)+, R4 
(SP)+, R5 



R2 

2* 

RO 

R4iR0 

#60, Rl 

R1,-<SP) 

RO, Rl 

3* 

CONVAL 

(SP)+, RO 



R2 

2* 

#*RJUST, R3 

2* 

#' ,R0 

#*ZRPAD, R3 

4* 

#'0, RO 

R2, 4* 
2* 



i Save registers 



Check for RAD50 value 

Br if not RAD50 

Output RAD50 

Continue 

Assume octal base 

Check for decimal base 

Br if numeric display in octal 

Set for decimal base 

Assume word value 

Check for byte storage 

Br if storage is luord value 

Otherwise byte value 

Convert numeric value 

Restore registers 



Say one more digit converted 

Br if all display digits converted 

Clear high order result 

Divide number by numeric base 

Convert remainder to ascii digit 

Save ascii digit on stack 

Set result register 

Br if no more digits to convert 

Call conversion for next digit 

Get the next digit to display 

Output the ascii character 

iCheck field output size 

J No pad necessary 

iCheck for right justify 

; Br if not right justify 

; Default pad to blank 

; Check for zero pad 

; Br if blank pad chosen 

; Change to zero pad 

; Output the charater 

jContinue until all ouput 

; Display remaining characters 



I 

€ 



TSDUMP 


— TSX- 


■Plus crash dump 


OUTRAD 


— Convert and 


print a 


1 
2 








3 








4 








5 








6 


004220 


010146 




7 


004222 


005000 




e 


004224 


071027 


003100 


9 


004230 






10 


004240 


005000 




11 


004242 


071027 


000050 


12 


004246 






13 


004256 






14 


004266 


012601 




15 


004270 


000207 




16 








17 


004272 


040 


101 




004275 


103 


104 




004300 


106 


107 




004303 


111 


112 




004306 


114 


115 




004311 


117 


120 




004314 


122 


123 




004317 


125 


126 




004322 


130 


131 




004325 


044 


056 




004330 


060 


061 




004333 


063 


064 




004336 


066 


067 




004341 


071 




18 








19 








20 








21 








22 








23 








24 








25 


004342 


112700 


000040 


26 


004346 


163701 


000052 ' 


27 


004352 


003403 




28 


004354 






29 


004360 


077103 




30 


004362 


000207 
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SBTTL OUTRAD 



Convert and print a RAD50 value 



OUTRAD - Convert and output radSO data. 
Rl = Numeric rad50 value 





OUTRAD: 


MOV 


R1,-<SP) 






CLR 


RO 






DIV 


#50*50, RO 






TTYOUT 


R50CHR(R0) 






CLR 


RO 






DIV 


#50, RO 






TTYOUT 


R50CHR(R0) 






TTYOUT 


R50CHR<R1) 






MOV 


<SP)+, Rl 






RETURN 




102 


R50CHR: 


. ASCII 


/ ADCDEFGH 


105 








110 








113 








116 








121 








124 








127 








132 








040 








062 








065 








070 









;ClBar high order 

; Divide for 1st byte 

; Display radSO character 

iClear high order 

j Divide for 2nd byte 

i Display radSO character 

; Display radSO character 



0123456789/ 



EVEN 



. SBTTL BLKPAD 



Blank pad output stream 



BLKPAD - Blank pad ouput stream. 

Rl = ending column number 



BLKPAD: 


MOVB 


#' ,R0 




SUB 


COL, Rl 




BLE 


20* 


10*: 


TTYOUT 






SOB 


Rl, 10* 


20*: 


RETURN 





; Initialize ouput to space 
iPigure number of blanks 
j Br if already past column 
; Display space 
; Continue 



I 
c 



TSDUMP 
OUTCHR 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

Errors 



— TSX-Plus crash dump MACRO V05. 04 
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004364 
004370 
004372 
004372 
004376 
004400 
004406 
004414 
004422 
004424 
004424 
004430 
004432 
004436 
004442 
004444 
004450 
004452 
004456 
004460 
004464 



detected 



005737 
001415 

105777 
100006 
117737 
142737 
123727 
001363 

105777 
100375 
1 1 0077 
120027 
001003 
005037 
000405 
120027 
103402 
005237 
000207 

000001 




SBTTL OUTCHR 



Output an ascii character 



000050 ' 



173452 



173442 000344 
177600 000344 
000344' 000021 20*: 



173414 

173404 
000015 

000052 

000040 

000052 



} OUTC 


HR - Oul 


;put an ascii 


f 


RO 


= character 


> 

OUTCHR: 


TST 


RCSR 




BEQ 


OPRINT 


OTERM: 






10*: 


TSTB 


©RCSR 




BPL 


20* 




MOVE 


SRBUF, XFLG 




BICB 


#•'^0177, XFLG 


20*: 


CMPB 


XFLG, #CTRLQ 




BNE 


10* 


OPRINT: 






30*: 


TSTB 


eTCSR 




BPL 


30* 




MOVE 


RO, ©TBUF 




CMPB 


RO, #CR 




BNE 


40* 




CLR 


COL 




BR 


50* 


40*: 


CMPB 


RO, #40 




BLD 


50* 




INC 


COL 


50*: 


RETURN 





; Check for receiver buffers 

; No receiver CSR, transmit character 

; Check input port 

j Br if no input pending 

i Input the character 

} Strip eighth bit 

i Check for XON 

j Br if not XON state active 

Check transmit done flag 

Wait for transmit done 

Output to transmitter 

Is character a carriage return? 

Br if not carriage return 

Clear column counter 

Finished 

Is character printable? 

Br if not printable 

Increment column position 

Finished 



. END 



*** Assembler statistics 



Work file reads: 
Work file writes: 
Size of work file: 
Size of core pool: 
Operating system: 







9950 Words 

17920 Words 

RT-11 



< 39 Pages) 
< 70 Pages) 



Elapsed time: 00:01:11.07 

DK: TSDUMP, LP: TSDUMP=DK: TSDUMP. MAC/C/N: SYM 
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*BYTE 



*DEC 
*INCOR 
*RAD50 
*RJUST 



*ZRPAD 



ADCASH 

ADDR 

ADEMT 

ADEXEC 

ADGEN 

ADINIT 

ADLOCK 

ADTIO 

ADTIOX 

ARG 



ARGS 

BLKPAD 

CHNADR 

CLKPC 

CLKPS 

COL 

CONVAL 

CORUSR 

CR 

CRLF 



CSHBAS 

CTRLQ 

CTRLS 

CUREMT 

CURFRK 

CUR JOB 

CXBJOB 

CXBOWN 

DASH 



5-22# 
10-31 
12-5 
5-23# 
2-20 
5-24# 
5-19# 
11-17 
11-31 
12-S 

5-20# 
11-17 
11-31 
12-12 
9-13 
9-5# 
9-9 
9-8 
9-6 
9-10 
9-12 
9-7 
9-11 
16-61 
17-48 
19-11 
21-6 
23-25 
24-12 
28-7 
31-7 
33-7 
34-14 
37-53 

8-5 
14-6 
33-32 
14-18 
10-6 
10-7 
15-46# 
37-25 
2-14 
15-7# 
1 5-77# 
24-6 
35-11 
10-8 
15-9# 
15-10# 
14-8 
10-9 
1 5-8S# 
10-10 
10-11 
15-11# 



10-10 
10-32 
13-14 
11-5 
29-11 
11-25 
11-6 
11-18 
11-32 
12-9 
11-6 
11-18 
11-32 
12-13 
9-13 
21-21 
9-9 
9-8 
9-6 
9-10 
9-12 
9-7 
9-11 
16-61# 
17-48# 
19-11# 
21-6# 
23-25# 
24-12# 
28-7# 
31-7# 
33-7# 
34-14# 
37-53# 

S-5# 
14-6# 
35-27 
14-18 
10-6 
10-7 
33-6* 
37-32# 
25-8 
15-77 
17-5 
25-5 
36-15 
10-8 
15-65 

14-8 

10-9 

25-6 

10-10 

10-11 



10-11 
10-33 
14-9 
12-5 

11-26 

11-7 

11-19 

11-33 

12-10 

11-7 

11-19 

11-33 

37-50 

1 5-36# 

1 5-32# 
15-31# 
1 5-29# 
1 5-33# 
1 5-35# 
1 5-30# 
1 5-34# 
17-5 
17-50 
19-14 
22-12 
23-36 
24-15 
29—27 
31-11 
33-28 
34-37 
38-9 
9-5 

38-2 5# 



33-23 

37-41 

29-5 

39-19 

17-52 

25-12 

21-18 
39-13 



10-12 
10-34 
14-10 
17-11 

12-6 

11-8 

11-20 

11-34 

12-11 

11-8 

11-20 

11-34 

21-20* 



21 
21 



10* 
9* 
21-7* 
21-11* 
21-17* 
21-8* 
21-14* 



17- 
17- 
19- 



5# 
50# 
14# 
22-12# 
23-36# 
24-1 5# 
29-27# 
31-11# 
33-28# 
34~37# 
38-9# 
9-5# 



34-13 



19-5 
28-7 



10-13 
10-35 
30-29 
17-24 

17-18 

11-9 

11-21 

11-35 

12-12 

11-9 

11-21 

11-35 



17-13 

17-52 

19-17 

22-13 

23-49 

25-5 

30-19 

31-14 

33-29 

35-11 

38-12 

10-5 



34-15 



19-11 



10-17 
10-37 
34-26 
25-10 

37-13 
11-10 
11-22 
11-36 
12-13 
11-10 
11-22 
11-36 



17-13# 

17-52# 

19-17# 

22-1 3# 

23-49# 

25-5# 

30-19# 

31-14# 

33-29# 

35-1 1# 

38-12# 

10-5# 



38-26 



19-17 
30-36 



10-18 
10-38 
35-31 
37-18 



11-11 
11-23 
11-37 
34-41 
11-11 
11-23 
11-37 



17-20 

19-5 

19-20 

22-17 

23-55 

25-6 

30-24 

32-12 

33-30 

36-13 

38-13 

11-5 



39-21* 



19-23 

31-14 



10-19 
10-42 
37-22 



11-12 
11-24 
11-38 
37-47 
11-12 
11-24 
11-38 



10-24 
10-43 



10-25 
10-50 



10-27 
10-52 



10-30 
11-5 



17-20# 

19-5# 

19-20# 

22-17# 

23-55# 

25-6# 

30-24# 

32-12# 

33-30# 

36-13# 

38-13# 

11 -5# 



39-25* 



20-5 
32-12 



11-13 
11-27 
11-39 

11-13 
11-27 
11-39 



17-26 

19-6 

19-23 

22-22 

24-6 

25-7 

30-25 

33-4 

33-33 

36-15 

38-28 

12-5 



21-6 
33-4 



11-14 
11-28 
11-40 

11-14 
11-28 
11-40 



17-26# 

19-6# 

19-23# 

22-22# 

24-6# 

25-7# 

30-25# 

33-4# 

33-33# 

36-1 5# 

38-2S# 

12-5# 



11-15 
11-29 
11-41 

11-15 
11-29 
11-41 



17-43 

19-7 

20-5 

23-14 

24-9 

25-12 

30-36 

33-5 

34-7 

37-43 

13-4 



11-16 
11-30 
12-7 

11-16 
11-30 
12-11 



17-43# 

19-7# 

20-5# 

23-1 4# 

24-9# 

25-12# 

30-36# 

33-5# 

34-7# 

37-43# 

13-4# 



22-12 


22-22 


23-14 


33-7 


33-28 


33-29 



M 
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DATUM 


16-62 


17-5# 






DEVICE 


16-70 


27-5# 






DEVSIZ 


12-13 


12-13 






DHAN 


12-5# 


27-5 






DIEARG 


2-11 


19-8 






DIEPC 


2-11 


8-13 


8- 


-13 


DIESP 


2-11 


8-12 


8- 


-12 


DIV32 


17-33 


17-37 


18- 


-8# 


DMPHND 


2-11 


19-18 






DMPOVL 


2-11 


19-12 






DMPTRP 


16-32 


16-78# 






DMPTXT 


2-11 


19-6 






DODUMP 


2-4 


16-27# 






DOSCHD 


10-12 


10-12 






DVFLAG 


12-11 


12-11 






DVSTAT 


12-12 


12-12 






EMTBLK 


14-9 


14-9 


14- 


-11 


EMTFUN 


14-10 


15-48# 


29- 


-23# 


EQSTR 


1 5-74# 


22-17 


25- 


-7 


ERROR 


16-63 


19-5# 






EXCJOB 


10-13 


10-13 






FF 


1 5-76# 


16-61 






FORK 


16-72 


28-5# 






FQ*LNK 


2-21 


28-10 






FQ*PA5 


13-12 


13-12 






FQ$PA6 


13-13 


13-13 






FQ*PRI 


13-14 


13-14 






FQ*R1 


13-10 


13-10 






FQ*R2 


13-9 


13-9 






FQ*R3 


13-8 


13-8 






FQ*R4 


13-7 


13-7 






FQ*R5 


13-6 


13-6 






FQ*RTN 


13-5 


13-5 






FQ«UFB 


13-11 


13-11 






FREFRK 


10-16 


10-16 






FREIOQ 


10-14 


10-14 






FRKCQE 


10-15 


10-15 


28- 


-5 


FRKLEV 


1 5-86# 


24-12 






FRKPRI 


10-17 


10-17 


24- 


-10 


FRKREQ 


13-4# 


28-8 






HANENT 


12-7 


12-7 






HAN IOC 


12-10 


12-10 






HANPAR 


12-8 


12-8 






HANS I Z 


12-9 


12-9 






INBSY 


10-18 


10-18 






I NILE V 


15-S5# 


24-9 






INTLVL 


10-19 


10-19 


24- 


-7 


INTPRI 


10-20 


10-20 






INTSND 


2-9 








INTSTK 


2-9 


23-28 


23- 


-33 


INVSTK 


1 5-84# 


23-55 






lOABFL 


10-21 


10-21 






JCBINF 


16-73 


29-5# 






JLIN 


11 -5# 


26-5 






JOB 


16-64 


25-5# 






JSTK 


2-9 


23-41 


23- 


-46 



23-15 



14-12 14-13 14-14 14-15 14-16 14-17 29-18 

30-25 
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JSTKND 


2-9 


23-39 




KPAR6 


2-13 


16-51 


29-13 


LACTIV 


11-24 


11-24 




LAPS I Z 


11-34 


11-34 




LEASE 


11-lB 


11-18 


29-7 


LBSPRI 


11-30 


11-30 




LCDTYP 


11-27 


11-27 




LCLUNT 


11-31 


11-31 




LCMPL 


11-36 


11-36 




LCXPAR 


2-22 


29-9 




LEMTPC 


11-39 


11-39 




LF 


15-8# 


15-77 




LFWLIM 


11-35 


11-35 




LINCNT 


11-23 


11-23 




LINE 


16-69 


26-5# 




LIOCNT 


11-22 


11-22 




LIOHLD 


11-33 


11-33 




LJSW 


11-38 


11-38 




LMEMIN 


11-32 


11-32 




LNBLKS 


11-20 


11-20 




LNPRIM 


11-28 


11-28 




LNSBLK 


11-21 


11-21 




LOKBAS 


10-22 


10-22 


21-15 


LOKSWP 


10-23 


10-23 




LPARBS 


11-19 


11-19 




LPARNT 


11-29 


11-29 




LPRCl 


11-25 


11-25 




LPRG2 


11-26 


11-26 




LSPND 


11-40 


11-40 




LSTATE 


11-17 


11-17 




LSW 


11-6 


11-6 


29-11 


LSWIO 


11-15 


11-15 




LSWll 


11-16 


11-16 




LSW2 


11-7 


11-7 




LSW3 


11-8 


11-8 




LSW4 


11-9 


11-9 




LSW5 


11-10 


11-10 




LSW6 


11-11 


11-11 




LSW7 


11-12 


11-12 




LSW8 


11-13 


11-13 




LSW9 


11-14 


11-14 




LSWPBK 


11-37 


11-37 




LXCL 


11-41 


11-41 




MAPUSR 


10-24 


10-24 




MAXDEV 


2-14 


12-5 




MEM256 


10-25 


10-25 




MEMSWP 


10-26 


10-26 




MIOFLG 


10-27 


10-27 




MISC 


16-68 


24-5# 




MDDADR 


16-66 


21-5# 




MONTH 


15-61# 


17-17 




MSOBAS 


10-28 


10-28 




NCOL 


15-12# 


15-52 


15-53 


NDL 


2-15 


11-28 


11-31 


NIOL 


2-15 


11-31 




NLINES 


2-15 


11-5 





29-14* 



15-54 



15-55 



15-56 



15-57 



33-12 



34-9 
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NMFREQ 


10-29 


10-29 
























NPL 


2-15 


11-28 


11-31 


11-41 




















NSL 


2-15 


11-31 
























NUMDEV 


2-14 


























NUMON 


10-30 


10-30 
























NXTCOL 


34-4# 


34-47 
























OLIST 


20-8 


21-22 


24-18 


28-9 


29-30 


30-9# 
















DPR INT 


39-7 


39-15# 
























OSTACK 


23-26 


23-37 


23-50 


23-61 


31-5# 


















OTABLE 


26-6 


27-6 


32-5# 






















DTERM 


39-8# 


























OUTBSY 


10-31 


10-31 
























DUTCHR 


17-13 
38-28 


17-20 
39-6# 


17-43 


17-48 


17-50 


34-37 


36-13 


37-43 


37- 


-53 


38-9 


38-12 


38-13 


DUTRAD 


17-19 


19-16 


19-22 


22-16 


37-15 


38-6# 
















OUTSTR 


16-61 


17-5 


17-26 


17-52 


19-5 


19-6 


19-7 


19-11 


19- 


-14 


19-17 


19-20 


19-23 




20-5 


21-6 


22-12 


22-13 


22-17 


22-22 


23-14 


23-25 


23- 


-36 


23-49 


23-55 


24-6 




24-9 


24-12 


24-15 


25-5 


25-6 


25-7 


25-12 


28-7 


29- 


-27 


30-19 


30-24 


30-25 




30-36 


31-7 


31-11 


31-14 


32-12 


33-4 


33-5 


33-7 


33- 


-28 


33-29 


33-30 


33-33 




34-7 


34-14 


35-11 


36-9# 


36-15 


















OUTVAL 


17-12 


17-25 


19-10 


22-20 


25-11 


30-35 


31-10 


31-13 


35- 


-15 


35-38 


37-9# 




OVLREG 


1 5-78# 


22-13 
























OVRADD 


2-19 


22-14 
























OVRADR 


16-67 


22-1 1# 
























PNAME 


12-6 


12-6 
























PRTREG 


8-5# 


20-7 
























PSW 


2-10 


























PVON 


10-32 


10-32 
























R50CHR 


38-9 


38-12 


38-13 


38-17# 




















RBUF 


15-44# 


16-39* 


16-40* 


16-41 


39-11 


















RCSR 


1 5-45# 


16-38* 


39-6 


39-9 




















REG 


16-65 


20- 5# 
























RTllEX 


2-23 


29-20 


29-22 






















SAVKP6 


1 5-47# 


29-13* 


29-31 






















SPDJOB 


10-33 


10-33 
























SPSTR 


1 5-75# 


17-26 


33-33 


34-7 




















SR3FLG 


10-34 


10-34 
























SS 


2-9 


23-17 


23-22 






















SSEND 


2-9 


24-13 
























STACK 


16-71 


23-14# 
























STKCNT 


15-82# 


31-7 
























STKDLM 


15-S3# 


31-11 
























STKEMT 


15-81# 


23-49 
























STKINT 


1 5-80# 


23-36 
























STKLVL 


10-35 


10-35 
























STKOVR 


1 5-87# 


24-15 
























STKSS 


1 5-79# 


23-25 
























STRADD 


8-5 


8-5# 


8-6 


8-6# 


8-7 


8-7# 


8-8 


8-8# 


8- 


-9 


S-9# 


S-10 


8-10# 




8-11 


8-ll# 


8-12 


8-12# 


8-13 


8~13# 


8-14 


8-14# 


8- 


-15 


8-1 5# 


9-5 


9-5# 




9-6 


9-6# 


9-7 


9-7# 


9-8 


9-S# 


9-9 


9-9# 


9- 


-10 


9-10# 


9-11 


9-ll# 




9-12 


9-12# 


9-13 


9-13# 


10-5 


10-5# 


10-6 


10-6# 


10- 


-7 


10-7# 


10-8 


10-8# 




10-9 


10-9# 


10-10 


10-10# 


10-11 


10-11# 


10-12 


10-12# 


10- 


-13 


10-13# 


10-14 


10-14# 




10-15 


10-1 5# 


10-16 


10-16# 


10-17 


10-17# 


10-18 


10-1S# 


10- 


-19 


10-19# 


10-20 


I0-20# 




10-21 


10-21# 


10-22 


10-22# 


10-23 


10-23# 


10-24 


10-24# 


10- 


-25 


10-25# 


10-26 


10-26# 




10-27 


10-27# 


10-28 


10-2S# 


10-29 


10-29# 


10-30 


10-30# 


10- 


-31 


10-31# 


10-32 


10-32# 




10-33 


10-33# 


10-34 


10~34# 


10-35 


10-35# 


10-36 


10-36# 


10- 


-37 


i0-37# 


10-38 


10-38# 
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10-39 


10-39# 


10-40 


10-40# 


10-41 


10-41# 


10-42 


10-42# 


10-43 


10-43# 


10-44 


10-44# 

10-50# 

11-7 

11-13 

11-19 

11-25 

11-31 

11-37 

12-5 

12-10# 

13-6# 

13-12# 

14-9# 

14-1 5# 




10-45 
10-51 


10-45# 
10-51# 


10-46 
10-52 


10-46# 
10-52# 


10-47 
11-5 


10-47# 
11-5 


10-48 
11-5 


10-4S# 
11 -5# 


10-49 
11 -5# 


10-49# 
11-6 


10-50 
11— 6# 




11 -7# 


11-8 


11 -8# 


11-9 


11 -9# 


11-10 


11-10# 


11-11 


11-11# 


11-12 


11-12# 




1 1-13# 


11-14 


11-14# 


11-15 


11-15# 


11-16 


11-16# 


11-17 


11-17# 


11-18 


11-18# 




11-19# 


11-20 


ll-20# 


11-21 


11-21# 


11-22 


ll-22# 


11-23 


ll-23# 


11-24 


ll-24# 




ll-25# 


11-26 


ll-26# 


11-27 


ll-27# 


11-28 


1 1 -28# 


11-29 


ll-29# 


11-30 


1 1 -30# 




11-31# 


11-32 


ll-32# 


11-33 


ll-33# 


11-34 


ll-34# 


11-35 


ll-35# 


11-36 


1 1 -3&# 




ll-37# 


11-38 


ll-38# 


11-39 


ll-39# 


11-40 


ll-40# 


11-41 


11-41# 


12-5 


12-5 




12-5# 
12-11 


12-5# 
12-11# 


12-6 
12-12 


12-6# 
12-12# 


12-7 
12-13 


12-7# 
12-13# 


12-8 
13-4 


12-8# 
13-4# 


12-9 
13-5 


12-9# 
13-5# 


12-10 
13-6 




13-7 
13-13 


13-7# 
13-13# 


13-8 
13-14 


13-S# 
13-14# 


13-9 
14-6 


13-9# 
14-6# 


13-10 
14-7 


13-10# 
14-7# 


13-11 
14-8 


13-11# 
14-8# 


13-12 
14-9 




14-10 
14-16 


14-10# 
14-16# 


14-11 
14-17 


14-11# 
14-17# 


14-12 
14-18 


14-12# 
14-18# 


14-13 


14-13# 


14-14 


14-14# 


14-15 


SVPAR5 


8-14 


8-14 


1 5-24# 


16-52* 


















SVPAR6 


8-15 


8-15 


15-25# 


16-51* 


















SVRO 


8-6 


8-6 


15-17# 




















SVRl 


8-7 


8-7 


15-18# 




















SVR2 


8-8 


8-8 


15-19# 




















SVR3 


8-9 


8-9 


1 5-20# 




















SVR4 


8-10 


8-10 


15-21# 




















SVR5 


8-11 


8-11 


1 5-22# 




















SVREG 


1 5-23# 


16-53 






















SYSDAT 


2-16 


17-6 






















SYTIMH 


2-17 


17-30 






















SYTIML 


2-17 


17-31 






















TACCR 


32-8 


34-8# 






















TADR 


15-57# 


33-19* 


33-30 


34-5* 


34-53* 


35-29 














TATT 


15-56# 


33-18* 


34-16* 


34-26 


34-41 


34-52* 


35-14 


35-28 










TBUF 


1 5-42# 


16-46* 


16-47* 


39-18* 


















TCLR 


32-7 


33-12# 






















TCSR 


1 5-43# 


16-45* 


39-16 




















TECOL 


15-53# 


33-15* 


33-31 


34-15* 


34-30 


34-34 


34-35* 


34-40 


34-45# 


34-46 


34-49* 




TEINX 


1 5-55# 


33-17* 


34-23 


34-24* 


34-51* 


35-22 


35-43 










TENABL 


8-5# 


e-6 


8-7 


8-8 


8-9 


8-10 


8-11 


8-12 


8-13 


8-14 


8-15 


9-5# 




9-6 


9-7 


9-8 


9-9 


9-10 


9-11 


9-12 


9-13 


10-5# 


10-6 


10-7 


10-8 

10-20 

10-32 

10-44 

11-8 

11-20 

11-32 

12-7 

13-9 

14-12 




10-9 


10-10 


10-11 


10-12 


10-13 


10-14 


10-15 


10-16 


10-17 


10-18 


10-19 




10-21 
10-33 
10-45 


10-22 
10-34 
10-46 


10-23 
10-35 
10-47 


10-24 
10-36 
10-48 


10-25 
10-37 
10-49 


10-26 
10-38 
10-50 


10-27 
10-39 
10-51 


10-28 
10-40 
10-52 


10-29 
10-41 
11 -5# 


10-30 
10-42 
11-6 


* Vr A f 

10-31 
10-43 
11-7 




11-9 

11-21 

11-33 


11-10 
11-22 
11-34 


11-11 
11-23 
11-35 


11-12 
11-24 
11-36 


11-13 
11-25 
11-37 


11-14 
11-26 
11-38 


11-15 
11-27 
11-39 


11-16 
11-28 
11-40 


11-17 
11-29 
11-41 


11-18 
11-30 
12-5# 


A A * 

11-19 
11-31 
12-6 




12-8 

13-10 

14-13 


12-9 

13-11 

14-14 


12-10 
13-12 
14-15 


12-11 
13-13 
14-16 


12-12 
13-14 
14-17 


12-13 
14-6# 
14-18 


13-4# 
14-7 


13-5 
14-8 


13-6 
14-9 


13-7 
14-10 


13-8 
14-11 


TINIT 


32-6 


33-4# 






















TIOBAS 


10-36 


10-36 


21-12 




















TKISEC 


2-18 


17-32 






















TNHL 


2-15 


11-27 






















TOTON 


10-37 


10-37 






















TOUT 


32-9 


35-5# 






















TRPAR5 


2-13 


16-52 






















TSCOL 


15-52# 


33-14* 


34-13* 


34-29 


34-43* 


34-48* 


35-40 












TSEMT 


2-12 


21-10 
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TSEXEC 2-12 21-9 

TSGEN 2-12 21-7 

TSINIT 2-12 21-11 

TSINX 15-54# 33-16* 34-19 34-20* 34-50* 35-10 35-20 

TSTIO 2-12 21-8 

TXARG 15-70# 19-7 

TXDEV 15-73# 19-20 

TXOID 15-72# 19-14 

TXSEG 15-71# 

UBUSMP 10-38 10-38 

UIOCNT 10-39 10-39 

URO 14-7 14-7 

USP 10-40 10-40 

USRBAS 10-41 10-41 

USRJOB 10-42 10-42 

VBUSTP 10-43 10-43 

VCSHNB 10-44 10-44 

VDMTCR 2-10 16-34 

VJCB 14-6# 29-28 

VMISC 10-5# 24-17 

VMXSF 10-45 10-45 

VMXSFC 10-46 10-46 

VNGR 10-47 10-47 

VNUMDC 10-48 10-48 

VPAR5 2-13 23-56 

VPAR6 2-13 23-58 

VPLAS 10-49 10-49 

VSWPFL 10-50 10-50 

VSWPSL 10-51 10-51 

VUXIFL 10-52 10-52 

XFLG 15-65# 39-11* 39-12* 39-13 
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DISABL 


3-7# 
























PRINT 


3-27# 


16-61 


17-5 


17-26 


17-52 


19-5 


19-6 


19-7 


19-11 


19-14 


19-17 


19-20 




19-23 


20-5 


21-6 


22-12 


22-13 


22-17 


22-22 


23-14 


23-25 


23-36 


23-49 


23-55 




24-6 


24-9 


24-12 


24-15 


25-5 


25-6 


25-7 


25-12 


28-7 


29-27 


30-19 


30-24 




30-25 


30-36 


31-7 


31-11 


31-14 


32-12 


33-4 


33-5 


33-7 


33-28 


33-29 


33-30 




33-33 


34-7 


34-14 


35-11 


36-15 
















PRVAL 


6-5# 


14-10 


14-11 


14-12 


14-13 


14-14 


14-15 


14-16 


14-17 








PVAL 


5-26# 


8-6 


8-7 


8-8 


8-9 


8-10 


8-11 


8-12 


8-13 


8-14 


8-15 


9-6 




9-7 


9-8 


9-9 


9-10 


9-11 


9-12 


9-13 


10-6 


10-7 


10-8 


10-9 


10-10 




10-11 


10-12 


10-13 


10-14 


10-15 


10-16 


10-17 


10-18 


10-19 


10-20 


10-21 


10-22 




10-23 


10-24 


10-25 


10-26 


10-27 


10-28 


10-29 


10-30 


10-31 


10-32 


10-33 


10-34 




10-35 


10-36 


10-37 


10-38 


10-39 


10-40 


10-41 


10-42 


10-43 


10-44 


10-45 


10-46 




10-47 


10-48 


10-49 


10-50 


10-51 


10-52 


11-6 


11-7 


11-8 


11-9 


11-10 


11-11 




11-12 


11-13 


11-14 


11-15 


11-16 


11-17 


11-18 


11-19 


11-20 


11-21 


11-22 


11-23 




11-24 


11-25 


11-26 


11-27 


11-28 


11-29 


11-30 


11-31 


11-32 


11-33 


11-34 


11-35 




11-36 


11-37 


11-38 


11-39 


11-40 


11-41 


12-6 


12-7 


12-8 


12-9 


12-10 


12-11 




12-12 


12-13 


13-5 


13-6 


13-7 


13-8 


13-9 


13-10 


13-11 


13-12 


13-13 


13-14 




14-7 


14-8 


14-9 


14-18 


















STKDEF 


3-17# 
























TBEG 


4-10# 


8-5 


9-5 


10-5 


11-5 


12-5 


13-4 


14-6 










TEND 


7-5# 


8-16 


9-14 


10-53 


11-42 


12-14 


13-15 


14-19 










TTYOUT 


3-39# 
38-13 


17-13 
38-28 


17-20 


17-43 


17-48 


17-50 


34-37 


36-13 


37-43 


37-53 


38-9 


38-12 



